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ABSTRACT 


It  is  well  known  that  classical  ECM  techniques  against  an  inconiing  active  missile 
attack  is  efiective  only  at  distances  where  the  jamming  signal  to  missile  return  signal 
ratio  is  high.  There  is  no  guarantee  that  it  will  work  well  against  all  missiles.  As  the 
missiles  get  closer  to  the  target,  the  efTectiveness  of  classical  ECM  techniques  is 
reduced.  Hence,  there  is  a  need  to  design  a  short  range  ECM  system  that  is  efTective  at 
medium  range  and  increases  its  countermeasure  capabilities  as  the  range  shrinks.  The 
US  Army  is  considering  a  high  power,  mobile  ECM  system  capable  of  delivering  up  to 
5  GW  of  peak  power  at  10  GHz.  The  narrow  beamwidth  of  this  system  creates  a  very 
high  peak  power  density  of  the  order  of  10-20  W/cm^  at  10  Km  distance.  With  this 
amount  of  concentrated  energy,  it  is  capable  of  damaging  or  degrading  the  highly 
sensitive  sensors  of  the  missile  and  causing  the  missile  to  lose  track  of  its  target. 

The  purpose  of  this  project  is  first,  to  evaluate  the  various  possible  array  types 
which  must  meet  a  far  field  peak  power  density  requirement  subject  to  a  constraint  on 
maximum  aperture  E-field  strength.  At  the  same  time,  the  sidelobe  and  backlobe  levels 
should  not  cause  radiation  hazard  to  the  operators  of  the  system.  After  an  array 
design  is  chosen,  the  whole  vehicular  structure  is  modeled  and  near  field  patterns  are 
examined  to  determine  the  likely  radiation  hazard  zone. 

This  project  is  based  on  the  usage  of  the  Numerical  Electromagnetic  Code  -  Basic 
Scattering  Code  (NEC-BSC)  from  the  Ohio  State  University.  Four  additional  software 
programs  are  wTitten  to  support  the  code.  The  evaluation  shows  that  Uniform  - 
Cosine  tapering  offered  the  lowest  sidelobe  and  backlobe  level  in  the  near  field  and  yet 
met  the  far  field  requirement  and  maximum  aperture  E-field  constraint.  With  the 
vehicular  structure  included,  the  system  has  a  safety  margin  of  more  than  27  dB  below 
the  recommended  radiation  hazard  limit  near  ground  level. 
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I.  INTRODUCTION 

A.  GENERAL  BACKGROUND 

The  classical  electronic  countermeasure  (ECM)  techniques  against  incoming 
active  missiles  attack,  is  to  employ  noise  and  deceptive  jammers  to  capture  the  missile 
sensor's  range  gate  and  angular  gate  and  steer  it  toward  some  false  target  generated  by 
passive  ECM  devices.  Such  an  ECM  technique  works  well  when  the  distance  between 
missile  and  jammer  is  large  and  the  jamming  signal  to  missile  return  signal  ratio  is  high. 
On  the  other  hand,  modem  missiles  are  designed  to  counter  classical  ECM  techniques, 
such  as  the  use  of  a  monopulse  tracking  technique  which  makes  angular  gate  stealing 
very  difficult,  and  the  home-on-jam  technique  to  home  onto  the  jammer  when  the 
jamming  signal  is  ver\'  high.  As  the  missile  closes  in  on  the  jammer,  the  jamming 
signal  to  missile  return  signal  ratio  decreases  and  the  jamming  effectiveness  drops.  By 
the  time  the  distance  between  the  missile  and  the  jammer  is  reduced  to  less  than 
10  Km,  there  is  even  less  chance  that  the  jammer  will  achieve  its  mission.  Hence,  there 
is  a  need  to  design  another  form  of  ECM  technique  that  is  effective  at  the  short  range. 

One  solution  to  the  short  range  ECM  problem  is  to  use  a  high  power  narrow 
beam  device,  concentrating  very  high  energy  towards  the  missile  at  ranges  up  to 
10  Km.  As  most  sensors  are  designed  to  have  high  sensitivity  for  target  acquisition  at 
far  distances,  they  usually  do  not  have  very  wide  dynamic  range  for  handling  very  high 
input  power  density.  If  the  power  density  produced  by  the  ECM  device  at  10  Km 
exceeds  the  breakdown  limit  of  the  missile  sensor,  the  sensor  may  be  damaged  or 
malfunction,  causing  the  missile  to  lose  tracking  ability. 

B.  SYSTEM  SPECIFICATIONS 

The  Flyswatter  Array  is  a  high  power,  vehicle  mounted,  ECM  system  capable  of 
delivering  up  to  5  GW  of  output  peak  power  within  a  ver>'  narrow  pencil  beam.  This 
creates  a  very  high  power  density  of  the  order  of  10-20  W/cm^  at  a  distance  of  10  Km. 
This  amount  of  energy  when  radiated  onto  a  seeker  head  of  an  incoming  missile  will 
damage  or  degrade  the  highly  sensitive  sensor  of  the  missile,  thereby  causing  it  to  lose 
track  of  its  target.  The  specifications  of  such  a  system  are  listed  below  : 
Frequency  10  GHz 

Total  output  peak  power  5  GW 

Maximum  aperture  E-field  10.6  KV/cm 
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Reflector  size 

Array  size 

Array  mounting  plate  size 

Array  type 

Element  orientation 

Full  gain  elevation  coverage 

Azimuth  coverage 

Pulse  width 

Pulse  repetition  rate 

Required  power  density  at  10  Km 

Overall  structure 


5.1m  X  2.7m  x  0.1m 

2m  X  2.5m 

3m  X  4.5m 

endfeed  broadside  array 

length  in  parallel  with  the 

long  side  of  the  plate 

0°  to  45° 

180° 

100ns 

lOpps 

10  -  20  W/cm^ 

(see  Fig.  1.1) 


The  above  specifications  were  derived  from  a  simplified  model  consisting  of  uniformly 
distributed  elements.  More  detailed  description  of  such  a  simplified  model  will  be 
described  in  Chapter  IV. 

C.       PROJECT  PURPOSE 

Given  that  we  have  such  a  high  power  device,  one  can  ask  "what  is  the  radiation 
intensity  in  the  vicinity  of  the  system?  Will  it  cause  a  radiation  hazard  to  the  operators 
of  the  vehicle?"  The  purpose  of  this  project  is  to  simulate  the  ECM  system  using  a 
more  reahstic  TE^q  mode  slot  array  rather  than  uniformly  distributed  elements.  The 
far  field  patterns  are  recorded  to  ensure  that  the  power  density  requirement  of 
10-20  W/cm^  at  10  Km  is  met.  Then  the  near  field  radiation  patterns  are  plotted  to 
determine  the  radiation  hazard  regions,  if  any. 


13 


Figure  1.1     Fly  swatter  Array  Mounted  on  an  Armored  Vehicle. 
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II.  RADIATION  HAZARD  EVALUATION  PROCEDURE 

A.  PROBLEM  AREA  IDENTIFICATION 

The  project  can  be  divided  into  two  main  areas.  The  first  one  is  to  determine  the 
array  configuration  to  meet  system  requirements  and  the  second  is  to  determine  any 
radiation  hazard  zones. 

1.  Array  Configuration  Determination 

The  system  specifications  listed  in  Chapter  I,  section  B  do  not  define  the  array 
configuration.  The  only  restrictions  are  on  the  array  type,  element  orientation  and 
overall  array  dimension.   Other  parameters  that  must  be  chosen  are  as  follows: 

•  the  dimension  of  element, 

•  the  spacing  between  elements, 

•  the  types  of  field  tapering  and 

•  the  number  of  elements. 

By  varying  all  these  parameters,  we  hope  to  design  a  TEjq  mode  slot  array 
that  will  meet  the  system  requirements;  namely,  deliver  up  to  5  GW  of  output  power  to 
achieve  10-20  W/cm^  of  power  density  at  10  Km  distance  without  exceeding  the 
maximum  aperture  E-field  breakdown  limit  of  10.63  KV/cm.  At  the  same  time,  the 
sidelobes  and  backlobes  must  be  kept  small  so  that  the  near  field  radiation  level  outside 
of  the  main  beam  is  low  enough  not  to  cause  any  hazard  to  the  operators  of  the 
system. 

2.  Radiation  Hazard  Regions  Determination 

After  the  array  configuration  has  been  defined  and  the  system  specifications 
are  met,  the  near  field  patterns  of  the  ECM  system  are  then  computed  at  various 
reflector  tilting  angles  and  array  azimuthal  pointing  directions.  The  radiation  hazard 
regions  are  then  recorded. 

B.  EVALUATION  PROCEDURE 

The  evaluation  procedure  used  to  accomplish  the  task  is  as  follows : 
Step  1  :  Compute  the  far  field  patterns  of  a  simple  plate  mounted  array  with  fewer 
elements  and  no  reflector  plate.    The  purpose  is  to  determine  the  element 
spacing  and  element  sizes  so  as  to  reduce  unwanted  grating  lobes. 


15 


Step  2  :  Compute  the  far  field  and  near  field  patterns  of  the  array  with  the  reflector 
plate,  with  different  tapering  types.  This  will  determine  the  type  of  tapering 
that  will  give  high  gain,  narrow  main  beam  beamwidth  and  low  sidelobe 
and  backlobe  levels. 

Step  3  :  Compute  the  far  field  patterns  of  the  flyswatter  array  with  full  input  power 
of  5  GW.  By  adjusting  the  number  of  elements  and  the  type  of  tapering, 
one  can  determine  if  the  required  power  density  at  10  Km  distance  is 
achieved.  At  the  same  time  the  maximum  aperture  E-field  must  also  be 
checked  to  ensure  that  it  is  within  the  limit  specified. 

Step  4  :  Compute  the  far  field  patterns  of  the  array  in  the  presence  of  the  modeled 
vehicle  and  determine  if  the  requirements  are  still  met  at  various  elevation 
and  azimuthal  pointing  angles.  Vary  the  number  of  elements  and  tapering 
type  if  necessary. 

Step  5  :  Compute  the  near  field  patterns  of  the  array  in  the  presence  of  the  modeled 
vehicle  at  various  elevation  and  azimuthal  pointing  angles  and  determine 
the  radiation  hazard  zones. 

C.       RADIATION  EXPOSURE  LIMITS 

The  radiation  exposure  limits  of  radio  frequency  electromagnetic  spectrum  for 
humans  used  in  this  report  is  based  on  the  recommendations  made  by  the  National 
Council  on  Radiation  Protection  and  Measurements  (NCRP)  and  American  National 
Standards  Institute  (ANSI).  The  NCRP  report  [Ref  I]  suggested  two  different  limits 
on  the  far  field  power  density,  averaged  over  6  min.  and  30  min.  respectively  as  shown 
in  Fig.  2.1(a).  The  average-over-6-min.  curve  is  meant  for  occupational  exposure 
criteria  which  is  similar  to  the  limits  given  in  ANSI  C95. 1-1982  protection  guide 
[Ref  2].  The  average-over-30-min.  curve  is  one-fifth  that  of  the  occupational  criterion 
and  is  the  criterion  for  the  general  population.  These  limits  apply  to  both  continuous 
wave  and  pulsed  signals.   No  specific  peak  power  limitation  was  given. 

The  ANSI  C95. 1-1982  protection  guide  suggested  that  the  radiation  intensity  be 
measured  at  a  distance  of  5  cm  or  more  from  any  object  in  the  field  and  averaged  over 
a  6  minute  duration  as  shown  in  Fig.  2.1(b).  Hence,  it  can  be  applied  to  both  near 
field  and  far  field  radiation  conditions.  At  10  GHz,  the  power  density  limit  is 
5  mW/cm",  the  same  as  that  given  in  NRCP  report.  Therefore,  we  will  use  this  as  the 
occupational  exposure  limit.    However,  the  Flyswatter  Array  has  a  duty  cycle  of  10^  , 
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hence  the  limit  on  peak  power  density  based  on  an  average  of  5  mW/cm*-  is  equivalent 


to  5  KWcnr  or  77  dB  Wm* 
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Figure  2.1     Radiation  Exposure  Limits. 
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III.  SOFTWARE  SUPPORT 

The  simulation  of  the  Flyswatter  Array  and  vehicle  requires  a  software  code  that 
is  capable  of  modeling  the  whole  system  structure  and  computing  the  near  field  and  far 
field  radiation  patterns  at  X-band.  The  Basic  Scattering  Code  of  the  Numerical 
Electromagnetic  Code  (NEC-BSC)  series  is  chosen  for  its  capabilities  in  computing 
radiation  patterns  of  complex  structures  using  the  Geometrical  Theory  of  Diffraction 
(GTD)  method.  This  code  provides  the  required  calculation  and  analysis  power  and 
outputs  the  data  in  tabular  form.  Additional  routines  were  then  written  to  support  the 
code.  A  brief  description  of  each  of  these  codes  is  included  in  this  chapter.  The  names 
enclosed  in  the  parenthesis  are  the  file  names  of  the  codes.  The  flow  charts  and  listings 
of  the  four  supporting  software  codes  are  attached  in  Appendix  A.  A  detailed 
description  of  the  Basic  Scattering  Code  and  its  applications  can  be  found  in  the 
references  [Refs.  3.4]. 

A.       BASIC  SCATTERING  CODE  (GTD2P51) 

1.   Capabilities. 

•  Frequency  Range  : 

*  UHF  and  above. 

•  Modeling  : 

*  Infinite  Ground  Plane  :  Perfect  conductor  or  dielectric  filled  plate. 

*  Plates  :  Perfect  conductor  plates  or  thin  dielectric  slabs. 

*  Cylinders  :  Elliptical  shape  with  slanted  end  caps. 

*  Antenna  : 

Dipole  or  slot. 

Single  element  or  array. 

Uniform,  piecewise  sinusoid  or  TEq,  distribution. 

Electric  or  magnetic  excitation. 

*  Receiver : 

Dipole  or  slot. 

Single  element  or  array. 

Uniform,  piecewise  sinusoid  or  TEgj  distribution. 

Electric  or  magnetic  excitation. 
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Computation  : 

*  Far  field  :  E-field  in  either  9  or  cp  direction  or  versus  frequency. 

*  Near  field  :  E-field,   H-field  and  Power  density  computations  with  one  of 
the  following  options  : 

Spherical  coordinates. 
Rectangular  coordinates. 
Frequency  sweeping. 

*  Antenna  Coupling  :  Magnitude,  Phase  and  dB  values  of  reaction  between 
the  antennas  with  one  of  the  following  options  : 

Mutual  impedance  between  the  two  antennas. 

Ratio   of  the    power-out    over    power-in    using    a    modified    Frii's 

transmission  formula  for  conjugate  matched  loads. 

Maximum  gains  between  the  antennas  using  the  Linville  method. 

2.  Limitations. 

Plates  should  have  edges  at  least  a  wavelength  long. 

Thin  dielectric  slabs  should  be  at  least  a  wavelength  away  from  any  source. 

Incident  fields  should  not  strike  the  slab  too  close  to  grazing. 

Each  antenna  element  should  be  at  least  a  wavelength  from  all  edges. 

The  code  delivers  up  to  a  second  order  answer,  ie.,  it  can  include  fields  for  ray 

paths  that  interact  with  at  most  two  scattering  centers.    Hence,  the  plots  are 

accurate  for  the  first  30  dB  only. 
•     Double  diffracted  fields  are  not  included. 
In  many  cases,  the  one  wavelength  limits  may  be  reduced  to  a  quarter  wavelength  for 
engineering  purposes. 

3.  Modifications. 

The  GTD2P51  code  has  been  modified  to  suit  our  requirements  for  this 
project.  The  modifications  are  carried  out  largely  in  the  main  program  and  subroutine 
OUTPUT  which  are  listed  below  : 


• 


Added  a  CT  card  to  read  in  the  title  of  input  data  set.  This  title  will  be  printed 
out  together  with  the  data  set  and  passed  over  to  the  plotting  routine  to  be 
included  as  the  heading  of  the  plots. 
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•  Modify  the  subroutine  OUTPUT  to  print  out  the  title,  abbreviated  codes  and 
output  data  at  specific  formats  for  output  unit  No.  8.  The  abbreviated  code 
consists  of  5  characters  : 

*  Character  1  :  F,  N  for  Far  field  or  Near  field. 

*  Character  2  :  F,  S  for  Fixed  or  Scanned  frequency. 

*  Character  3  :  R,  S  for  Rectangular  or  Spherical  coordinates. 

*  Character  4  :  E,  H,  P  for  E-field,  H-field  or  Power  density. 

*  Character  5  :  1,  2,  3  defines  the  variable  parameters; 

X,  Y  or  Z  for  rectangular  coordinates, 
R,  0  or  (p  for  spherical  coordinates. 

•  Maximum  dimensions  for  plates,  cylinders  and  sources  have  been  increased  as 
follows  : 

*  Maximum  number  of  plates  =  50. 

*  Maximum  number  of  cylinders  =  100. 

*  Maximum  number  of  sources  =  10100. 

B.       INTERFACING  CODE  (GTDRWSEL) 

The  output  from  the  Basic  Scattering  Code  consists  of  a  string  of  abbreviated 
control  codes  followed  by  several  columns  of  data.  The  interfacing  code  (GTD  Read, 
Write,  SELect)  reads  in  these  abbreviated  codes  and  converts  them  into  useful 
information.  It  then  displays  this  information  for  the  user  to  select  the  type  of  plots 
that  he  wants.   These  selections  include, 

•  The  type  of  field,  ie.  E-field,  H-field  or  power  density  in  either  X,  Y,  Z  or  R, 
9,  (p  directions  or  the  total  field. 

•  The  type  of  plots,  ie.  magnitude  plot  or  phase  plot,  linear  or  dB  scale  for  Y 
axis  values,  linear  or  log  plot. 

After  the  selection,  the  GTDRWSEL  program  will  then  generate  another  set  of 
control  codes  to  be  used  by  the  plotting  program.  These  codes  and  the  labels  for  each 
plot  are  placed  in  a  control  file  using  output  unit  No.  3.  The  program  also  chooses  the 
correct  data  sets  and  places  them  in  the  output  data  file  using  output  unit  No.  2. 
These  two  files  will  be  used  by  the  plotting  program  (GTDPLOT). 
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C.  OUTPUT  DATA  PLOTTING  CODE  (GTDPLOT) 

This  program  is  modified  from  an  existing  program  called  PLOTNF  (Near  Field 
Plot).  Additional  features  were  added  to  allow  for  all  options  in  the  interfacing  code 
(GTDRWSEL).  It  reads  in  the  control  codes  from  the  control  file  and  obtains  the 
data  from  output  data  file  and  plots  them  using  DISSPLA  subroutines. 

D.  GEOMETRIES  PLOTTING  CODE  (GTDGEOMP) 

This  program  reads  in  the  same  set  of  input  data  that  is  to  be  fed  into  the  NEC- 
BSC  code.  It  then  selects  only  the  geometrical  data  and  plots  out  its  3-D  geometries 
using  DISSPLA  subroutines.  It  is  used  as  an  aid  to  check,  the  geometrical  data  of  the 
input  data  set. 

The  GTDGEOMP  code  selects  the  geometrical  data  and  plots  the  following 
items: 

•  Infinite  ground  plane, 

•  Plates, 

•  Cylinders  and 

•  Sources. 

It  also  reads  in  and  executes  the  following  commands  that  are  used  in  GTD2P51  : 

CT  Print  title. 

NC  Remove  all  cylinders. 

NG  Remove  ground  plane. 

NP  Remove  all  plates. 

NS  Remove  all  sources. 

NX  Start  next  set  of  data. 

RT  Rotate  and  translate  coordinates. 

The  user  may  choose  to  view  the  object  from  any  viewing  angle  in  order  to  give  a 
better  perspective  of  the  structure.  This  code,  however,  does  not  have  the  capability  to 
blank  out  hidden  lines. 

E.  SA  CARD  GENERATING  CODE  (GTDSA) 

The  code  SA  stands  for  Source- Array.  This  is  an  interactive  program  where  the 
user  is  asked  to  enter  a  series  of  data  regarding  the  geometries  of  the  array,  the  type  of 
element  used,  the  tapering  type  and  the  total  input  power.  It  then  computes  and 
generates  a  data  file  in  the  format  specified  by  the  NEC-BSC  code  for  the  SA  card. 
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This  program  is  capable  of  generating  a  slot  antenna  array  with  a  rectangular 
grid  arranged  on  the  X^,  Z^  plane,  as  used  in  NEC-BSC  code.  All  elements  of  the  array 
are  assumed  to  have  the  same  dimensions  and  orientation.  It  can  simulate  either  a 
TEjQ  mode  or  Uniform  distribution  for  each  element.  There  are  5  different  tapering 
types  to  choose  from,  for  each  of  the  directions  (along  X^  or  Z^  axis).  Namely, 
Uniform  ,  Cosine  ,  Cosine-square  ,  Triangular  and  Binomial  .  One  can  also  choose  to 
add  a  pedestal  height  to  the  tapering.  Note  that  even  without  any  pedestal  (ie. 
pedestal  height  equal  zero),  the  outer  most  elements  will  still  have  some  excitation 
because  the  algorithm  always  includes  one  more  element  at  each  side  of  the  array, 
having  the  same  spacing  as  the  rest,  to  be  the  one  with  zero  excitation. 

The  distribution  used  in  each  element  is  assumed  to  be  perfect  so  that  the 
relationship  between  the  E-field  and  the  output  power  for  TE^q  mode  excitation  is 


abE 
P  = 


A 
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41, 

A 

where  E  is  the  maximum  E- field  across  the  width  b  of  the  element,  a  is  the  length  of 
the  elernent  and  r\  is  the  intrinsic  wave  impedence.  For  an  array  of  N  elements  with 
total  output  power  P^Qt^l'  ^^e  above  equation  becomes 
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with  E^  being  the  maximum  E-field  of  the  n^  element.  Knowing  the  output  power, 
element  dimensions  and  the  tapering  types,  the  excitation  for  each  element  E^  can 
be  computed. 

For  a  Uniform  distribution,  the  relationship  between  the  input  power  and  the 
excitations  is  given  below  : 


ab 


p  ^ f  F  2 

Note  that  given  the  same  input  power,  element  dimensions,  number  of  elements  and 
tapering  types,  the  element  excitation  of  each  element  for  uniform  distribution  is  only 
one  half  of  that  of  the  TE^g  mode.  Hence,  a  Uniform  distribution  will  have  much 
lower  aperture  E-field  than  TE^q  mode. 
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IV.  ARRAY  CONFIGURATION  ANALYSIS  AND  RADIATION  HAZARD 

EVALUATION 

The  evaluation  of  radiation  hazard  is  carried  out  according  to  the  5  steps  spelled 
out  in  Chapter  II  under  Evaluation  Procedure. 

A.       ELEMENT  SPACING  AND  SIZE  VARIATION 

In  order  not  to  complicate  the  evaluation,  we  assume  that  the  elements  are 
arranged  on  a  rectangular  grid  and  all  elements  are  of  the  same  rectangular  size  and 
orientation  as  shown  in  Fig.  4.1.  The  axes  X^  and  Z^  orientate  the  array.  (The  array 
has  no  fixed  relationship  with  the  global  co-ordinates  X,  Y  and  Z  until  specified.) 
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Figure  4.1     Plate  mounted  rectangular  grid  array. 
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There  are  three  main  factors  that  impose  restrictions  on  the  element  spacing  and 
sizes.  Namely,  supporting  the  TE^q  mode  only,  suppressing  grating  lobes  and  sidelobes 
and  reducing  maximum  aperture  E-field. 

1.  TEIO  mode  Propagation 

In  order  to  support  the  TEjq  mode,  the  waveguide  elements  must  have  a 
length  of  at  least  half  a  wavelength  {X/2).  Similarly,  for  the  TEqj  mode  to  propagate, 
the  width  of  the  element  must  be  at  least  half  a  wavelength,  too.  Hence,  we  have  to 
restrict  the  width  to  less  than  half  a  wavelength.  As  the  length  increases,  and  exceeds 
one  wavelength,  the  TE20  niode  will  begin  to  propagate.  Therefore,  in  order  to  support 
only  the  TE^g  mode,  the  element  size  must  be  restricted  to  the  following  values  : 

l.OX  >  element  length  (a)  ^  O.SX 
0.5X,  >  element  width  (b) 

2.  Grating  Lobes  and  Sidelobes  Suppression 

Grating  lobes  will  appear  whenever  the  spacing  between  elements  is  greater 
than  or  equal  to  one  wavelength.  This  can  be  seen  in  Fig.  Bl  of  Appendix  B.  These 
three  plots  show  the  far  field  patterns  of  a  simple  plate  mounted  array  with  fixed 
spacing  of  l.OX,  but  different  element  lengths  of  0.5X,  0.75X  and  l.OX.  There  is  no 
reflector  plate  used  and  the  other  parameters  that  are  common  to  all  three  plots  are  as 
follows  : 

Array  mounting  plate  size  4.5m  x  3m 

Number  of  elements  in  X^  direction  10 

Number  of  elements  in  Z^  direction  10 

Element  width  0.25X 

Amplitude  Tapering  in  X^  direction  Uniform 

Amplitude  Tapering  in  Z^  direction  Uniform 

Output  power  100  W 

Frequency  10  GHz 

Distance  10  Km 

The  array  is  placed  on  the  X-Y  plane  with  the  X^  axis  parallel  to  the  Y-axis. 

These  figures  show  that  grating  lobes  always  occur  at  0  =  90°  and  270" 
irrespective  of  the  element  length.  The  main  difference  between  the  three  plots  is  the 
gain  at  0  =  0°.    It  is  highest  for  element  length  =  l.OX  and  reduces  as  the  length 
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decreases.  Hence,  it  may  be  desired  to  have  the  length  of  elements  as  large  as  possible 
to  ensure  higher  gain,  but  not  too  large  to  create  grating  lobes. 

Fig.  B2  shows  the  efiects  when  the  spacing  between  elements  in  the  Z 
direction  is  reduced.  Fig.  B2(a)  and  Fig.  B2(b)  are  for  element  spacing  of  0.75X  while 
Fig.  B2(c)  shows  the  radiation  pattern  plot  when  the  spacing  is  further  reduced  to  0.5X. 
Note  that  at  0.5X  spacing,  the  antenna  gain  pattern  at  6  =  90°  and  270°  is  totally 
cancelled  as  one  would  expect.  It  is  ver\'  important  to  ensure  that  the  radiation  level 
near  the  region  where  0  =  90°  and  270°  be  kept  to  its  minimum  because  these 
directions  could  be  in  line  with  the  operator. 

Similar  deductions  can  be  drawn  for  the  width  of  the  element  and  the  spacing 
in  Xj  direction.  Fig.  B3  shows  3  plots  of  fixed  element  length  and  spacing  in  both  the 
X^  and  Zj  directions,  but  with  different  element  widths  of  0.5X,  0.375X  and  0.25X.  The 
wave  in  the  element  is  still  propagating  in  the  TE^g  mode  and  hence  the  E-field 
strength  is  uniform  in  the  X^  direction.  This  results  in  broader  beamwidth  and  even  at 
a  spacing  of  0.75X  in  the  X^  direction,  the  grating  lobes  appear  to  be  quite  significant. 
As  the  spacing  in  the  X^  direction  is  reduced  to  0.5X,  as  shown  in  Fig.  B4,  the  grating 
lobes  disappear.  Further  reduction  in  the  spacing  causes  the  radiation  level  at  6  =  90° 
to  increase  as  shown  in  Fig.  B5.  Hence,  the  spacing  in  the  X^  direction  should  be  fixed 
at  0.5X. 

3.  Maximum  Aperture  E-field  Radiation 

The  equation  below  shows  the  relationship  between  the  input  power  and  the 
maximum  E-field  of  the  array,  assuming  a  perfect  TE,q  mode  of  propagation. 

p                 ^^^  max      J^     . 
total  =  X  E\^jio(n) 

4Zq  n=l 

From  this  equation,  it  is  obvious  that  by  increasing  the  element  size  a  and  b,  the 
maximum  E-field  Ejj-„„  will  be  reduced  since  Ej.^^.JQ(n)  is  only  a  function  of  N  and  the 
tapering  type.  Hence,  by  making  the  elements  as  large  as  possible,  without  affecting 
the  mode  of  propagation  and  the  grating  lobes,  the  maximum  aperture  E-field  may  be 
reduced. 

4.  Effects  of  varying  the  element  spacing  and  size 

From  the  above  investigation,  the  effects  due  to  the  variation  of  the  element 
spacing  and  size  are  summarized  below. 
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•  Spacing  between  elements  in  the  Z^  direction  should  be  less  than  one 
wavelength  in  order  to  reduce  grating  lobes.  It  may  be  desired  to  operate 
with  spacing  equal  to  0.5X  to  reduce  the  radiation  at  regions  near 
e  =  90°  and  270°. 

•  Spacing  between  elements  in  X^  direction  must  be  0.5X  or  less  to  reduce 
grating  lobes.  At  0.5X  spacing,  the  radiation  level  at  0  ^  90°  is  ver>'  low 
and  is  preferred. 

•  Element  size  affects  the  gain  of  the  main  lobe  as  well  as  the  maximum  power 
flux  at  array  output  for  a  fixed  number  of  elements.  The  larger  the  element 
size,  the  higher  the  gain  and  the  lower  the  maximum  power  flux. 

From  the  above  observations,  one  realizes  that  the  spacing  between  elements 
in  both  Zj  and  X^  directions  are  restricted  to  l.OX,  and  0.5X  respectively  in  order  to 
support  only  the  TEjq  mode  of  propagation  and  at  the  same  time  suppress  the  grating 
lobes.  Hence,  by  operating  with  minimum  gaps  between  elements  in  both  directions  so 
that  the  element  size  is  as  large  as  possible,  one  can  achieve  high  array  gain  at  low 
aperture  E-field  strength.  Alternately,  if  radiation  hazard  is  a  more  critical  issue,  then 
one  would  prefer  to  operate  with  element  size  of  0.5X  x  0.25X  and  with  element  spacing 
of  0.5>.  in  both  directions  to  ensure  minimum  direct  radiation  for  6  between  90°  and 
270°. 

Before  we  conclude  this  section,  let  us  consider  the  case  where  the  array  area 
is  fixed  and  we  want  to  fill  the  area  with  as  many  elements  as  possible  so  that  the  peak 
excitation  is  reduced.  Fig.  B6  to  39  show  that  a  fixed  array  area  of  7.5X  x  3.75X  is  to 
be  filled  by  elements  of  length  of  either  0.75X  or  0.5X,  and  width  of  either  0.375X  or 
0.25X.  The  plots  in  Fig.  B6  and  B7  are  for  Uniform  tapering  and  they  show  identical 
radiation  pattern  in  both  Eq  and  E^^  cuts.  Even  the  maximum  excitations  are  all  equal 
to  0.2442  X  lO'*  V/m  with  lOOW  of  input  power.  The  plots  in  Fig.  B8  and  B9  are  for 
Cosine  tapering  and  again  the  radiation  patterns  are  almost  identical  except  for  some 
variation  in  the  sidelobe  level.  However,  the  maximum  excitation  varies  with  the  plots, 
with  0.4349  X  10"^  V/m  for  0.75X  x  0.375X,  0.4462  x  lO'^  V;m  for  both  0.751  x  0.25X 
and  0.5X  x  0.375X  and  0.4578  x  10"^  V/m  for  0.5X  x  0.25X.  Hence,  the  peak  excitation 
for  Cosine  tapering  increases  as  the  element  size  is  reduced,  while  that  of  the  Uniform 
tapering  remains  unchanged. 
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B.       TAPERING  TYPES  VARIATION 

Five  commonly  used  tapering  types  are  selected  for  comparison.   These  are  : 

Uniform  tapering 
Cosine  tapering 
Cosine-Square  tapering 
Triangular  tapering  and 
Binomial  tapering 

Fig.  BIO  to  B14  show  the  far  field  and  near  field  patterns  of  the  array  with 
different  taperings  for  each  figure.  The  tapering  in  X^  and  Z^  directions  for  each  plot  is 
the  same  to  simplify  the  evaluation.  The  array  is  placed  on  the  X-Y  plane  with  the  X^ 
axis  parallel  to  the  Y'-axis  and  the  reflector  plate  is  tilted  at  45°  to  give  maximum 
radiation  pointing  towards  9  =  90°.   The  other  parameters  chosen  are  as  follows  :  • 

Reflector  plate  (single  plate)  5.1m  x  2.7m 

Array  Mounting  plate  4.5m  x  3m 

Number  of  elements  in  X^  direction  10 

Number  of  elements  in  Z^  direction  10 

Element  length  0.5X 

Element  width  0.25X 

Element  spacing  in  X  direction  0.5X 

Element  spacing  in  Z^  direction  0.5X 

Output  power  ^  100  W 

Frequency  10  GHz 

Fig  4.2  shows  the  geometry'  of  the  array. 
1.  Far  Field  Pattern  Comparison 

For  far  field  radiation  patterns,  we  are  interested  in  the  gain  and  beamwidth. 
Hence,  the  plots  are  taken  with  ±45°  coverage  about  the  boresight  for  cuts  in  both 
elevation  and  azimuth.  The  origin  of  the  coordinate  system  is  located  at  the  center  of 
the  reflector  plate  and  the  plots  are  computed  at  a  distance  of  10  Km.  Table  1  shows 
the  comparison  of  gain  and  beamwidth. 

From  Table  1,  we  have  the  following  relationship  : 

Gain  :  Uniform  >  Cosine  >  Triangular  >  Cosine-Square  >  Binomial 
Beamwidth  :  Binomial  <  Cosine-Square  <  Triangular  <  Cosine  <  Uniform 


27 


Figure  4.2    Simplified  Array  Geometry. 

Note  that  the  reduction  in  gain  and  the  increase  in  beamwidth  for  Binomial  tapering  as 
compared  to  the  others  are  quite  significant.  Hence  the  Binomial  tapering  may  not  be 
suitable. 

2.  Near  Field  Pattern  Comparison 

For  near  field  comparisons,  we  are  interested  in  radiation  levels  in  all 
directions.  Hence,  0°  to  360°  coverage  in  both  vertical  and  horizontal  cuts  are 
obtained.  These  patterns  are  computed  at  5m  distance  from  the  center  of  the  reflector 
plate. 

The  plots  show  that  with  Uniform  tapering,  the  sidelobe  levels  are  ver\'  high 
and  they  occupy  quite  a  wide  area,  hence,  they  are  likely  to  cause  a  radiation  hazard 
in  a  wider  region.  With  Cosine  tapering,  the  mainlobe  beamwidth  is  slightly  broadened 
but  the  sidelobe  level  is  reduced  by  about  10  dB.  The  mainlobe  beamwidth  is  even 
wider  for  Cosine-Square  and  Triangular  tapering.    However,  the  sidelobe  level  is  also 
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TABLE  1 
COMPARISON  OF  GAIN  AND  BEAMWIDTH 

Taping 
Parameter 

Uniform 

Cosine 

Cosine^ 

Triangular 

Binomial 

Max.  E-field 
in  dB  V/m 

-27.15 

-28.29 

-29.90 

-28.95 

-32.47 

BW  in 

vertical  cut 

(deg) 

10.25 

12.50 

15.50 

13.50 

21.00 

BW  in 
horizontal 
cut  (deg) 

10.00 

12.50 

15.00 

13.50 

20.00 

proportionally  reduced.  As  for  Binomial  tapering,  the  mainlobe  beamwidth  is  the 
broadest  and  theoretically,  it  should  offer  the  lowest  sidelobe  level  among  the  5 
tapering  types.  But  due  to  the  broad  beamwidth  and  the  limited  reflector  plate  size, 
there  is  spillover  at  0  near  40°,  making  the  sidelobe  level  appear  to  be  much  higher 
than  for  Cosine-Square  and  Triangular  tapering.  However,  as  the  number  of  elements 
increases,  the  beamwidth  will  be  reduced  and  Binomial  tapering  should  offer  the  lowest 
sidelobe  level. 

Notice  that  in  the  vertical  cut  near  field  plots,  there  is  a  considerable  amount 
of  radiation  at  9  near  to  180°  and  300°  for  Uniform,  Cosine  and  Triangular  tapering. 
These  additional  sidelobes  also  appear  in  the  far  field  pattern  but  are  not  shown  in  our 
plots  due  to  the  limited  angular  coverage.  The  first  lobe  near  180°  is  part  of  the 
radiation  pattern  continuing  from  the  main  lobe.  The  sudden  drop  in  radiation  level 
prior  to  this  lobe  is  due  to  the  presence  of  the  array  mounting  plate.  By  simply 
increasing  the  plate  size,  this  lobe  can  be  eliminated.  The  second  lobe  near  G  =  300°  is 
the  result  of  one  of  the  sidelobes  generated  by  the  array  itself  The  presence  of  the 
reflector  causes  distortion  on  this  sidelobe.  For  Cosine-Square  and  Binomial  tapering, 
the  sidelobe  levels  of  the  array  are  so  low  that  no  significant  sidelobes  appear  at  the 
near  field  patterns  beyond  9  =  180°. 
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3.  Preferred  Tapering  Type 

The  far  field  pattern  comparison  shows  that  Uniform  tapering  gives  the 
highest  gain  and  narrowest  mainlobe  beamwidth.  On  the  other  hand,  the  near  field 
pattern  comparison  suggests  that  Cosine-Square  or  Binomial  tapering  offer  the  lowest 
sidelobe  level.  A  compromise  between  gain  and  sidelobe  levels  would  make  Cosine- 
Square  tapering  the  preferred  choice. 

C.       OVERALL  ARRAY  CONFIGURATION  ANALYSIS 

In  this  section,  we  will  attempt  to  determine  the  number  of  elements  in  both  the 
X^  and  Zj  directions,  element  sizes,  as  well  as  the  tapering  type  in  order  to  meet  the  far 
field  requirement  of  10-20  W/cm^  of  power  density  at  10  Km,  subject  to  the  following 
constraints  as  spelled  out  in  the  system  specifications. 

•  Maximum  total  output  power  of  5GW. 

•  Maximum  aperture  E-field  of  10.6  KV/cm. 

•  Maximum  array  area  of  2.5m  x  2.0m. 

1.  Array  Model  Simplification 

The  array  area  is  given  as  2.5m  x  2.0m.  In  order  not  to  exceed  the  maximum 
aperture  E-field  constraint,  one  would  expect  to  have  the  whole  array  area  filled  with 
array  elements.  Since  we  are  operating  at  10  GHz,  and  the  element  spacing  is 
restricted  to  less  than  one  wavelength  in  Z^  direction  and  half  a  wavelength  in  X^ 
direction,  the  minimum  number  of  elements  needed  will  be  N  =  84  x  133  =  11,172  as 
shown  in  Fig.  4.3(a).  With  such  a  large  number  of  elements,  it  is  impossible  to  execute 
the  GTD2P5  program.   Hence,  a  simplified  array  model  is  needed. 

The  GTD2P5  code  can  model  the  TE^q  mode  or  uniformly  distributed 
elements  regardless  of  the  element  length  and  width.  If  we  assume  that  tapering  along 
the  Xj  direction  is  Uniform,  and  there  is  no  gap  between  elements  in  X^  direction,  then 
we  may  use  a  simplified  array  that  has  the  length  of  each  element  unchanged  but  the 
width  extended  to  include  all  elements  in  X^.  direction.  That  is,  each  element's  width  is 
equal  to  2m  to  cover  the  whole  width  of  the  array  area  as  shown  in  Fig.  4.3(b).  Such  a 
simplified  array  model  will  produce  exactly  the  same  solution  as  one  using  the  actual 
model. 

Alternatively,  if  we  wish  to  vary  the  tapering  type  along  X^  direction,  we  may 
replace  the  elements  along  the  Z  direction  with  a  single  element  of  equivalent  length 
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Figure  4.3     Array  Model  Simplification. 
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while  the  width  remains  unchanged.  This  configuration  is  shov^Ti  in  Fig.  4.3(c). 
Because  the  GTD2P5  code  can  only  simulate  either  Uniform  or  Cosine  (TE^g) 
distribution  within  the  element,  we  are  restricted  to  using  either  Uniform  or  Cosine 
tapering  along  Z^  direction.  Together  with  the  use  of  either  a  uniform  distribution  or  a 
TEjQ  mode  excitation  for  each  element,  we  have  the  following  four  configurations. 

(a)  Uniformly    tapered    TE^q    linear    array    simulated    by    a    single    uniformly 
distributed  element. 

(b)  Cosine  tapered  TEjq  linear  array  simulated  by  a  single  TE^q  element. 

(c)  Cosine  tapered  uniformly  distributed  linear  array  simulated  by  a  single  TE^q 
element. 

(d)  Uniformly  tapered,  uniformly  distributed  linear  array  simulated  by  a  single 
uniformly  distributed  element. 

The  aperture  E-field  distribution  of  these  configurations  are  shown  in  Fig.  4.4. 

Except  for  the  last  configuration,  the  simplified  model  will  not  yield  an  exact 
solution.  Fortunately,  the  near  and  far  field  radiation  patterns  for  the  simplified 
models  are  very  similar  to  those  of  the  actual  arrays.  The  relationship  of  the  gain  and 
maximum  aperture  E-field  between  the  actual  and  simplified  models  are  derived  in 
Appendix  C.  These  derivations  allow  us  to  accurately  predict  the  performance  of  the 
actual  array  from  the  data  obtained  from  the  simplified  model. 

To  illustrate  the  similarity  between  the  actual  array  and  the  simplified  model, 
5  diagrams  consisting  of  far  field  and  near  field  pattern  plots  are  shown  in  Fig.  B15  to 
B19.  These  plots  are  measured  at  10  Km  away  from  the  center  of  the  refiector.  The 
distance  of  10  Km  ensures  that  the  field  generated  by  any  element  "within  the  array  area 
of  2.5m  X  2.0m  will  arrive  almost  in  phase,  so  that  direct  addition  of  the  individual  field 
patterns  is  possible.  The  input  power  is  25W,  the  mounting  plate  is  4.5m  x  3m  and  the 
refiector  plate  is  titled  at  45°.  The  elements  are  arranged  in  a  straight  line  with  a 
constant  width  of  0.25X,  along  Z^  axis.  The  other  parameters  of  each  plot  are  listed 
below: 

•       Model  1  :  Actual  array  for  configuration  (a)  (Fig.  B15). 

*  Tapering  type  =  Uniform 

*  Aperture  field  distribution  =  TEjq 

*  No.  of  elements  =  20 

*  Element  size  =  0.5X  x  0.25X 
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Figure  4.4    Aperture  E  Field  (E  )  for  Both  the  Actual  Array 
and  the  Simplified  Model. 
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*  Element  spacing  =  0.5X 

•  Model  2  :  Simplified  model  for  configuration  (a)  (Fig.  B16). 

*  Aperture  field  distribution  =  Uniform 

*  No.  of  elements  =  1 

*  Element  size  =  lO.OX  x  0.25X 

•  Model  3  :  Actual  array  for  configuration  (b)  (Fig.  B17). 

*  Tapering  type  =  Cosine 

*  Aperture  field  distribution  =  TE^q 

*  No.  of  elements  =  20 

*  Element  size  =  0.5X  x  0.25X. 

*  Element  spacing  =  0.5%. 

•  Model  4  :  Simplified  model  for  configuration  (b)  &  (c)  (Fig.  B18). 

*  Aperture  field  distribution  =  TEjg 

*  No.  of  elements  =  1 

*  Element  size  =  10.5X.  x  0.25X, 

•  Model  5  :  Actual  array  for  configuration  (c)  (Fig.  319). 

*  Tapering  type  =  Cosine 

*  Aperture  field  distribution  =  Uniform 

*  No.  of  elements  =  20 

*  Element  size  =  0.5X.  x  0.25X 

*  Element  spacing  =  0.5X 

Fig.  BI5  and  B16  allow  the  comparison  of  radiation  patterns  between  the 
actual  array  and  the  simplified  model  of  configuration  (a).  Fig.  B17,  B18  and  B19' 
show  the  radiation  patterns  of  the  configurations  (b)  and  (c).  Except  for  the  absolute 
magnitude,  both  the  near  and  far  field  radiation  patterns  of  the  simplified  models 
appear  to  be  very  similar  to  those  of  the  actual  array.  Table  2  lists  the  maximum 
aperture  E-field,  boresight  far  field  strength  and  boresight  near  field  strength  of  each 
model.  It  also  shows  computed  ratio  of  the  values  of  the  actual  array  to  those  of  the 
simplified  model.  The  computed  ratios  of  the  maximum  aperture  E-field  and  the 
boresight  far  field  strength  turn  out  to  be  very  close  to  the  derived  value.  Even  the 
ratios  for  the  near  field  field  strength  also  appear  to  be  closely  related  to  the  derived 
values  for  far  field.  Hence,  we  can  use  the  data  obtained  from  the  simplified  model  to 
predict  the  actual  array  performance  accurately. 
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TABLE  2 
MAXIMUM  APERTURE  E-FIELD  AND  BORESIGHT  FIELD  STRENGTH  COMPARISON 

Max.  Aperture 
E  Field 

Boresight  Far 
Field  Field 
Strength 

Boresight  Near 

Field  Field 

Strength 

Model  1 

4095.0  V/m 

0.0192  V/m 

23.30  V/m 

Model  2 

2047.0  V/m 

0.0151  V/m 

18.30  V/m 

Model  1 

2.0005 

1.2715 

1.273 

Model  2 

Derived  Result 

for  Con- 
figuration (a) 

2.0000 

1.2732 

Model  3 

5635.0  V/m 

0.0176  V/m 

21.40  V/m 

Model  4 

3996.0  V/m 

0.0196  V/m 

23.80  V/m 

Model  3 

T7-I  t- 1  o  — 

1.4102 

0.8980 

0.899 

Model  4 

Derived  Result 

for  Con- 
figuration (b) 

1.4142 

0.8986 

Model  5 

2818.0  V/m 

0.0139  V/m 

16.80  V/m 

Model  5 

0.7051 

0.7092 

0.706 

Model  4 

Derive  result 

for  Con- 
figuration (c) 

0.7071 

0.7058 

2.  Uniform  Field  Realization 

The  system  specifications  are  derived  based  on  the  simplified  model  of  the 
array.  It  assumes  that  the  field  distribution  within  each  element  is  uniform  (not  TEjq) 
and  there  is  no  gap  between  adjacent  elements.  The  area  is  then  occupied  by  96 
elements  each  of  length  0.8687X  and  width  2m  with  the  tapering  along  the  Z^  axis  being 
Triangular  (linear).  This  simplified  model  generates  10.47  KV/cm  of  maximum 
aperture  E-field.  The  far  field  patterns  generated  by  this  array  are  attached  in  Fig.  B20. 
and  the  peak  E-field  of  this  array  is  about  78.81  dB  V/m  or  equivalent  to  20.2  VV/cm" 
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of  power  density.  The  near  field  patterns  are  attached  in  Fig.  B21.  Fig.  B21(a)  shows 
the  vertical  cut  radiation  pattern  measured  at  3.5m.  It  shows  very  high  radiation  level 
in  both  forward  lobes  and  backlobes.  Fortunately,  the  azimuthal  beamwidth  is  very 
narrow  as  shown  in  Fig.  B21(b)  and  the  hazardous  region  is  confined  to  within  ±  10° 
of  the  boresight,  and  is  much  less  for  the  backlobe  since  the  peaks  are  much  lower.  The 
array  will  be  mounted  on  a  vehicle  2m  high,  hence,  it  is  not  possible  for  the  mainlobe 
or  the  backlobe  to  point  directly  at  any  operator.  Fig.  32 1(c)  and  32 1(d)  shows  the 
horizontal  radiation  plots  of  the  array  at  two  sidelobe  peaks  near  the  antenna 
mounting  plate  where  the  operators  could  be  located.  At  the  front  (cp  =  90°)  and  back 
(cp  =  270°)  of  the  array,  the  radiation  is  still  above  the  hazardous  level  and  hence 
operators  should  be  kept  away  from  the  front  and  back  of  the  array. 

3.  TEIO  mode  Realization 

Although  a  uniform  distribution  is  easier  to  simulate  and  it  also  simplifies  the 
computations,  it  is  not  realizable  in  a  slot  antenna.  Instead,  a  perfect  TE^q  mode  is 
chosen  to  make  the  simulation  more  realistic,  bearing  in  mind  that  the  peak  E-field  in 
each  element  of  the  TEjq  mode  excitation  is  much  higher  than  that  generated  by  the 
uniform  distribution. 

In  order  to  minimize  the  aperture  "field  strength,  we  will  fill  the  2.5m  x  2.0m 
array  area  with  elements  close  to  each  other.  Using  the  knowledge  we  gained  in 
Section  A  of  this  chapter,  we  select  the  element  size  of  0.8687X  x  0.5X  so  as  to  reduce 
the  aperture  field  strength  while  at  the  same  time  keeping  the  sidelobes  as  low  as 
possible.  Once  the  element  size  is  chosen,  the  number  of  elements  is  then  fixed  at 
96  x  133.  With  this  configuration,  we  can  then  use  the  two  suggested  simplified  model 
methods  to  determine  the  type  of  tapering  that  will  meet  the  requirements. 

After  several  trials  with  TEjq  mode  excitations,  we  find  out  that  by  using 
5  GW  of  input  power,  the  far  field  criterion  can  be  met  by  most  tapering  types.  But  at 
the  same  time,  the  aperture  field  strength  constraint  is  exceeded.  Hence,  the  input 
power  must  be  lowered.  It  turns  out  that  when  the  input  power  is  lowered,  only  3 
tapering  types  will  satisfy  both  the  far  field  criterion  and  near  field  constraint.  These 
are  Uniform  -  Uniform  tapering.  Cosine  -  Uniform  tapering  and  Uniform  -  Cosine 
tapering.  (With  the  tapering  type  along  Z  direction  positioned  before  the  hyphen  and 
the  tapering  type  along  X^  direction  placed  after  it.) 
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Table  3  lists  the  maximum  aperture  field  strength  and  the  far  field  boresight 
field  strength  computed  at  10  Km  for  the  3  tapering  types  mentioned  above.  The  far 
field  field  strength  is  also  converted  to  power  density  for  ease  of  comparison.  Two  sets 
of  data  are  obtained  for  each  tapering  type.  One  with  5  GW  of  input  power  and  the 
other  with  1.88  GW  of  input  power  to  meet  the  requirements.  As  can  be  seen  from  the 
table,  Uniform  -  Uniform  tapering  offers  the  highest  far  field  power  density  and  lowest 
maximum  aperture  field  strength.  The  Cosine  -  Uniform  and  Uniform  -  Cosine 
taperings  provide  approximately  the  same  performance. 


TABLE  3 

COMPARISON  OF  MAXIMUM  APERTURE  FIELD  STRENGTH  AND 
FAR  FIELD  POWER  DENSITY  FOR  DIFFERENT  TAPERING  TYPE 

Tapering 
•  Types 

Input 
Power 
(GW) 

Max.  Aperture 
Field  Strength 
(V/m) 

Far  Field 
Boresight 
Field  Strength 
at  10  Km  (V/m) 

Far  Field 
Boresight 
Power  Density  -, 
at  10  Km  (W/cm^) 

Uniform- 
Uniform 

5.00 

0.123E7 

0.128E5 

43.49 

1.88 

0.753E6 

0.799E4 

16.95 

Cosine- 
Uniform 

5.00 

0.173E7 

0.118E5 

36.96 

1.88 

0.106E7 

0.723E4 

13.88 

Uniform- 
Cosine 

5.00 

0.173E7 

0.118E5 

36.96 

1.88 

0.106E7 

b.724E4 

13.91 

Fig.  B22,  B23  and  B24  show  the  near  field  radiation  patterns  of  the  array 
using  Uniform  -  Uniform  tapering,  Cosine  -  Uniform  tapering  and  Uniform  -  Cosine 
tapering  respectively.  These  plots  are  measured  at  3.5m  away  from  the  center  of  the 
reflector  plate  with  1.88  GW  of  input  power.  Note  that  the  NEC-BSC  code  suggested 
the  output  is  only  accurate  for  the  first  30  dB  of  the  pattern,  due  to  the  absence  of  the 
higher  order  difiraction/refiection  terms.  For  these  3  plots,  however,  we  are  only  using 
2  fiat  plates,  the  antenna  mounting  plate  and  the  reflector  plate,  with  the  reflector  plate 
slanting  at  an  angle  of  45"  from  the  antenna  mounting  plate.    Furthermore,  most  of 
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the  energy  is  concentrated  towards  the  center  of  the  plates  and  then  reflected 
horizontally  out  of  the  plates,  causing  very  little  interaction  within  the  structure. 
Therefore,  we  can  safely  say  that  the  accuracy  range  limit  of  30  dB  does  not  apply  to 
these  plots.  Unfortunately,  it  is  not  within  the  scope  of  this  project  to  construct  an 
actual  model  for  direct  measurement  and  comparison.  We  will  bear  in  mind  the 
accuracy  problem  and  place  additional  safety  margins  on  the  radiation  hazard  level. 

For  Uniform  -  Uniform  tapering,  the  radiation  level  is  very  high  at  both  the 
forward  sidelobes  and  backlobes  as  can  be  seen  in  Fig.  B22(a).  There  may  be  a 
radiation  hazard  at  0  around  140°  and  230°,  assuming  that  the  array  is  placed  on  the 
vehicle  2m  above  ground.  The  radiation  level  at  the  sides  of  the  array  (cp  =  0°  &  180°) 
is  also  quite  high  as  shown  in  Fig.  B22(b),  but  it  drops  down  to  below  70  dB  W/m^  for 
6  between  140°  and  230°.  Fig.  B22(c)  shows  the  horizontal  radiation  pattern  at 
6  =  90°.  It  shows  that  the  main  lobe  beamwidth  is  very  narrow  and  is  less  than  1°  at 
the  -10  dB  point.  Similarly,  for  the  backlobe  at  (p  =  270°,  its  beamwidth  is  as  narrow 
as  the  mainlobe.  Hence,  the  radiation  hazard  regions  at  0  around  140°  and  230°  can 
be  expected  to  be  very  narrow.  For  Cosine  -  Uniform  tapering,  the  problem  remains  at 
the  front  and  backlobes  as  in  the  case  of  Uniform  -  Uniform  tapering.  Its  radiation 
level  at  the  sides  of  the  array  is  very  low  due  to  the  Cosine  tapering  along  Z^  direction. 
For  Uniform  -  Cosine  tapering,  because  Cosine  tapering  is  used  along  X^  direction,  the 
vertical  cut  radiation  pattern  at  (p  =  90°  shows  very  low  sidelobe  and  backlobes. 
Hence,  there  is  no  possibility  of  causing  a  radiation  hazard  outside  of  the  mainlobe. 
The  radiation  level  along  the  sides  of  the  array  is  quite  high  due  to  Uniform  tapering 
along  the  Z^  direction,  but  it  decreases  faster  than  that  of  the  Uniform  -  Uniform 
tapering  and  is  below  60  dB  W/m^  for  0  between  120°  and  240°,  therefore  not  causing 
any  radiation  hazard. 

From  the  above  comparisons,  we  see  that  with  Uniform  tapering  along  the  X^ 
direction,  there  is  very  likely  to  be  a  radiation  hazard  due  to  high  sidelobe  and 
backlobe  levels.  Uniform  tapering  along  the  Z^  direction  also  causes  high  radiation 
lobes  at  the  sides  of  the  array.  But  because  the  array  area  is  0.5m  (or  16.7  wavelength) 
longer  along  the  Z^  direction  than  along  the  X^  direction,  its  sidelobe  level  decreases 
faster  and  hence  is  less  likely  to  cause  a  radiation  hazard.  Therefore  Uniform  -  Cosine 
tapering  type  is  preferred. 

Fig.  B25  and  B26  show  the  far  field  radiation  patterns  of  the  array  using 
Uniform  -  Cosine  tapering  with  the  reflector  plate  tilted  at  45°  and  22.5°  respectively. 
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Although  the  patterns  are  not  quite  as  one  would  expect,  the  maximum  E-field  of  both 
plots  are  equal  to  0.724E4  V/m.  Hence,  the  tilting  of  the  reflector  plate  does  not  affect 
the  gain  of  the  array  and  the  far  field  criterion  is  still  met. 

D.  VEHICLE  MODELING  AND  FAR  FIELD  REQUIREMENT 

Fig.  1.1  shows  the  drawing  of  an  armored  vehicle  carrying  the  Flyswatter  Array. 
We  need  to  model  this  vehicle  to  determine  the  effects  of  the  presence  of  the  vehicle  on 
the  radiation  pattern  of  the  array  and  then  determine  the  radiation  hazard  region  cause 
by  the  entire  system.  Fig.  4.5  and  4.6  show  the  computer  model  input  to  the  NEC- 
BSC  code,  drawn  by  GTDGEOMP  program.  Note  that  the  wheels  of  the  vehicle  are 
not  shown  on  the  model  because  they  do  not  affect  the  radiation  pattern  significantly. 
The  supporting  poles  and  pivots  for  the  array  reflector  plate  are  formed  by  cylinders 
while  the  rest  of  the  structure  is  formed  by  plates  of  different  shapes.  Fig.  4.5  is  not 
the  true  plot  from  GTDGEOMP.  The  hidden  structures  have  been  removed  manually 
for  easy  comparison  between  the  computer  generated  model  and  the  actual  vehicle  as 
shown  in  Fig.  1.1.  Fig.  4.6  on  the  other  hand,  shows  the  actual  GTDGEOMP  plot 
with  the  array  rotated  to  face  the  front  of  the  vehicle.  The  darkened  region  is  the  array 
area  filled  by  small  elements. 

The  full  hsting  of  the  input  data  for  Fig.  4.6  with  far  field  pattern  plot  commands 
is  attached  in  Appendix  D,  and  the  far  field  radiation  plots  are  shown  in  Fig.  B27. 
Fig.  B28  shows  the  far  field  radiation  plots  of  the  same  system  but  with  the  refiector 
plate  tilted  at  22.5°.  Comparing  them  with  Fig.  B25  and  B26,  suggests  that  the 
mainlobe  and  the  near  in  sidelobes  have  not  been  affected  by  the  presence  of  the 
vehicular  structure,  and  the  gain  also  remain  unchanged.  By  rotating  the  array  at 
various  azimuth  angles  and  changing  the  tilt  angle  of  the  refiector  plate  within  the  full 
gain  range  of  22.5°  to  45°,  the  gain  of  the  model  remain  unaltered.  Hence,  the  model 
has  met  all  the  requirements  specified. 

E.  NEAR  FIELD  RADIATION  HAZARD 

Before  we  evaluate  the  near  field  patterns,  we  need  to  consider  again  the  accuracy 
of  these  plots.  Unlike  previous  discussions,  we  now  have  many  plates  and  cylinders 
being  placed  around  the  array.  The  vehicular  structure  plates  are  placed  mostly  below 
the  array  mounting  plate.  With  most  of  the  energy  radiating  in  a  narrow  beam  out  of 
the  structure,  we  can  be  quite  sure  that  there  is  not  much  reflected  and  diffracted  field 
from  these  plates.    The  cylinders  on  the  other  hand  are  placed  above  the  antenna 


39 


Figure  4.5    Computer  Generated  System  Model  with  Hidden  Structures  Removed. 

mounting  plate  and  are  subjected  to  direct  radiation.  From  the  previous  plot 
Fig.  B24(b),  we  see  that  there  is  quite  a  considerable  amount  of  energy  radiating  along 
the  sides  of  the  array.  These  radiated  energy  will  be  dispersed  by  the  cylinders.  Hence, 
we  can  expect  more  higher  order  diffraction  and  reflection  terms  to  appear  and  the 
accuracy  of  the  plot  is  reduced.  Using  the  NEC-BSC  code  guide  line  of  30  dB  accuracy 
range,  we  will  need  to  apply  more  safety  margin  to  the  radiation  hazard  evaluation. 

Fig.  B29  and  B30  show  the  near  field  radiation  patterns  of  the  full  model  with  its 
array  reflector  plate  tilted  at  45°  and  22.5°  respectively.  The  array  radiates  towards  the 
front  of  the  vehicle.  From  these  plots,  it  is  obvious  that  most  of  the  energy  is 
concentrated  near  the  main  beam.  The  only  region  that  the  radiation  is  beyond 
hazardous  level  is  within  ±5°  in  the  elevation  angle  and  ±20°  in  the  azimuth  angle 
near  boresight.  With  the  center  of  the  array  reflector  erected  at  about  5m  above  the 
ground,  the  safety  margin  for  operator  standing  at  ground  level  is  more  than  27  dB. 
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Figure  4.6    Computer  Generated  System  Model. 

Fig.  B31  and  B32  show  the  near  field  radiation  patterns  of  the  full  model  'with  the  array 
rotated  to  point  at  (p  =  45°  and  90°  respectively.  The  reflector  plate  is  tilted  at  45°  for 
these  plots.  Again,  there  is  no  sign  of  radiation  hazard  near  the  ground  level.  Hence, 
for  a  Uniform  -  Cosine  tapered  array,  there  is  a  safety  margin  of  30  dB  below  the 
allowable  radiation  hazard  level. 
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V.  CONCLUSIONS  AND  RECOMMENDATIONS 

From  the  preceding  investigation,  we  see  that  although  Uniform  tapering 
provides  high  gain  and  narrow  mainbeam  beamwidth,  it  generates  very  high  sidelobe 
and  backlobe  levels  and  is  likely  to  cause  a  radiation  hazard.  Cosine  tapering  on  the 
other  hand,  reduces  the  sidelobe  and  backlobe  levels  by  a  considerable  amount  at  the 
expense  of  lower  gain  and  broader  mainbeam  beamwidth.  In  order  to  meet  the  far 
field  requirement  of  producing  10-20  W/cm^  of  power  density  at  10  Km  distance  and  at 
the  same  time  be  subjected  to  the  constraint  of  10.6  KV/cm  of  maximum  aperture  E- 
field  strength,  we  are  then  restricted  to  only  3  tapering  types,  namely.  Uniform  - 
Uniform,  Cosine  -  Uniform  and  Uniform  -  Cosine.  After  comparing  the  near  field 
radiation  patterns,  we  see  that  Uniform  -  Uniform  tapering  produces  the  highest 
sidelobe  and  backlobe  levels  and  is  very  likely  to  cause  a  radiation  hazard  to  the 
operators  working  nearby.  Cosine  -  Uniform  tapering  reduces  the  radiation  level 
towards  the  sides  of  the  array.  But  the  radiation  near  the  front  and  back  of  the  array 
is  still  quite  high  and  is  also  likely  to  cause  a  radiation  hazard.  A  Uniform  -  Cosine 
tapered  array  operating  at  1.88  GW  of  input  power,  is  capable  of  producing 
13.91  W/cm^  of  far  field  power  density  at  10  Km  range,  with  a  maximum  aperture  E- 
field  strength  of  10.6  KV/cm.  The  near  field  patterns  show  that  the  radiation  level  near 
ground  level  is  very  much  lower  than  with  the  other  two  tapering  types.  With  the 
vehicular  structure  included,  we  see  that  there  is  a  safety  margin  of  more  than  27  dB. 
below  the  recommended  radiation  hazard  limit  near  ground  level.  Although  the  NEC- 
BSC  code  suggested  that  the  accuracy  range  for  the  radiation  pattern  is  only  up  to 
30  dB  from  the  peak  value,  the  contributions  from  the  higher  order  diffracted  and 
reflected  terms  cannot  bring  the  near  field  level  up  by  27  dB.  Hence,  we  can  safely  say 
that  there  is  no  radiation  hazard  to  the  operator  operating  nearby  when  the  Uniform  - 
Cosine  tapering  type  is  used. 

From  this  evaluation,  we  see  that  the  NEC-BSC  code  is  very  useful  for 
electromagnetic  radiation  analysis.  However,  its  capability  in  dealing  with  complex 
structures  is  very  restricted  by  its  limitation  in  handling  only  up  to  second  order 
reflected  and  diffracted  terms  excluding  doubly  diffracted  field.  It  will  be  able  to  yield 
more  accurate  results  if  higher  order  terms  can  be  included.    The  supporting  software 
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programs,  due  to  the  limited  time  frame,  are  written  mainly  for  this  project.  Further 
improvement  will  make  them  fully  compatible  with  the  NEC-BSC  code.  These 
modifications  are  listed  below  : 

•  Modify  NEC-BSC  code  to  output  phase  and  antenna  coupling  values. 

•  Modify  GTDRWSEL  and  GTDPLOT  codes  to  handle  phase  and  antenna 
coupling  output. 

•  Improve  the  cylinder  plotting  algorithm  of  the  GTDGEOMP  code. 

•  Improve  the  GTDGEOMP  code  to  remove  hidden  objects. 

•  Include  a  phase  variation  subroutine  in  the  GTDSA  code. 
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APPENDIX  A 
PROGRAM  FLOW  CHARTS  AND  LISTINGS 


INTERFACING  CODE  (GTDRWSEL)    /^  start 
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b.  Program  Listing 


********************** 

*  GTDRWSEL      * 

*  BY  KOH  WEE  JIN   * 

*  ON  MAY  26  1986   * 

*  AT  NPS       * 
********************** 


C 
C 

c 
c 
c 
c 

C+++ 

C+++  This  program  reads  in  the  abbreviated  codes  and  data  created 

C+++  by  GTD2P5 

C+++  It  then  selects  the  plots  needed,  convert  the  abbreviated  codes 

C+++  into  useful  information  and  put  them  into  a  Control  file. 

C+++  It  also  selects  the  appropriate  data  set  and  put  them  into  a 

C+++  Data  file 

C+++  These  two  file  will  be  used  by  GTDPLOT  for  plotting 

C+++ 

REAL  DATAIN(1000,5) 

INTEGER  IPL0T(4) 

CHARACTER* 1  C0ND(4) 

CHARACTER*3  CONTRL 

CHARACTER'^6  YHEAD(4) 
10  CONTINUE 

DO  30  1=1,5 
C+++ 

C+++  Initialize  data  set 
C+++ 

DO  20  J=l,1000 
DATAIN(J,I)=0. 
20    CONTINUE 
30  CONTINUE 

DO  40  1=1,4 

IPLOT(I)=0 
40  CONTINUE 
C+++ 

C+++  Read  in  control  and  comment  data  and 
C+++  Determine  if  job  end  is  encountered 
C+++ 

CALL  READC  (COND, IXPARM,NPTS) 

CONTRL  =  COND(l)//COND(2)//COND(3) 

IF  (CONTRL  .EQ.  'END')  GOTO  1000 
C+++ 

C+++  Convert  abbreviated  code  to  appropriate  variables 
C+++ 

CALL  CONVRT  (COND, I XP ARM, I COORD, YHE AD) 
C+++ 

C+++  Read  in  plotting  data 
C+++ 

CALL  RE ADD  (DATAIN, IXPARM,NPTS) 
50  CONTINUE 
C+++ 

C+++  Select  the  type  of  plot  needed 
C+++ 

CALL  CSTART  (COND, I COORD, IPLOT,YHEAD) 

CALL  SELECT  ( YHE AD, I YP ARM, I PLOT, COND) 

IF  (lYPARM  .EQ.  5)  GOTO  10 
C+++ 

C+++  Write  control  data  to  control  file 
C+++ 

CALL  WRITEC  (NPTS,COND) 
C+++ 

C+++  Write  output  data  to  gtdpdata  file 
C+++ 

CALL  WRITED  ( DATAIN, COND, NPTS , I YP ARM) 

GOTO  50 
1000  WRITE  (3, '(A3)')  CONTRL 

STOP 

END 
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c- 
c- 
c 
c 

c 
c 

C+++ 

C+++  This  subroutine  converts  the  abbreviated  codes 

C+++  to  appropriate  variables 


************************* 

*    SUBROUTINE  CONVRT    * 
************************* 


C+++ 


SUBROUTINE  CONVRT  (COND, IXPARM, ICOORD,YHEAD) 

CHARACTER*!  COND (4) 

CHARACTER*3  YDIM,XAXIS ,YAXIS 

CHARACTER'S  C00RD(3 , 2)/ ' X ' ,'Y','Z','R', 'THETA' , 'PHI'/ 

CHARACTER'S  XQ , YQ , XP ARM , YPARM , YHE AD ( 4 ) 

COMMON  /DPARMS/XQ , YQ , XPARM , YPARM , YDIM , XAXIS , YAXIS 

IF  (C0ND(3)  .EQ.  'R')  ICOORD  =  1 

IF  (C0ND(3)  .EQ.  'S')  ICOORD  =  2 

IF  (C0ND(2)  .EQ.  'S')  THEN 

XQ  =  'F' 

XPARM  =  'FREQ' 

IXPARM  =  4 
END  IF 
IF  (C0ND(2)  .EQ.  'F')  THEN 

XPARM  =  'DIST' 

IF  (C0ND(3)  .EQ.  'S'  .AND.  IXPARM  .EQ.  2)  XPARM  =  'ANGLE 

IF  (C0ND(3)  .EQ.  'S'  .AND.  IXPARM  .EQ.  3)  XPARM  =  'ANGLE 

XQ  =  COORD (I XPARM, ICOORD) 
END  IF 
DO  10  I  =  1,4 

IF  (I  .EQ.  4)  YHEAD(I)  =  C0ND(4)// 'PEAK' 

IF  (I  .NE.  4)  YHEAD(I)  =  C0ND(4)//C00RD(I , ICOORD) 
10  CONTINUE 
RETURN 
END 


************************* 

*    SUBROUTINE  CSTART    * 
************************* 


C 
C 
C 

c 

C+++ 

C+++  This  subroutine  displays  the  comment  statements 

C+++  as  a  start  for  the  selections  that  follows 

C+++ 

SUBROUTINE  CSTART  (COND, ICOORD, I PLOT, YHE AD) 

INTEGER  IPL0T(4) 

CHARACTER*!  COND (4) 

CHARACTER'S  COORD ( 3 , 2 ) / ' X ' , ' Y ' , ' Z ' , ' R ' , ' THETA ' , ' PHI ' / 

CHARACTER'6  YHE AD (4) 

CHARACTER'60  LABELl , LABEL2 , LABEL3 , LABEL4 , CNTRL 

COMMON  /START/FSTART,RXS,TYS,PZS 

COMMON  /LABELS/LABELl , LABEL2 , LABEL3 , LABEL4 , CNTRL 

CALL  FRTCMS('CLRSCRN  ') 

PRINT  ' 

PRINT  ',  'LABELl  =  ', LABELl 

PRINT  ' 

IF  (COND(l)  .EQ.  'F')  PRINT  ',  'FAR  FIELD  PATTERN  PLOT' 

IF  (COND(l)  .EQ.  'N')  PRINT  ',  'NEAR  FIELD  PATTERN  PLOT' 

PRINT  ' 

PRINT  ',  'INITIAL  CONDITIONS  OF  PLOTS  :  ' 

PRINT  ',  '  FREQ.  =  ',  FSTART,'    ', C00RD(1 , ICOORD) , '  =  ' ,RXS 

PRINT',  '  ', COORD (2, ICOORD), '  =  ',TYS,'    ', COORD (3 , ICOORD) , 
"  =  ' ,PZS 

PRINT  ' 

DO  10  I  =  1,4 

IF  (IPLOT(I)  .EQ.  1)  PRINT  ',  YHEAD(I),'  IS  BEING  PROCESSED' 
10  CONTINUE 

PRINT  ' 

RETURN 
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c- 
c 
c 
c 
c 

C+++ 
C+++ 
C+++ 


END 


************************ 

*    SUBROUTINE  READC    * 
************************ 


100 


110 


1000 
C+++ 
C+++ 
C+++ 
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This  subroutine  reads  in  the  comments  and  control  cards 

SUBROUTINE  READC  (COND, IXPARM,NPTS) 

CHARACTER*!  COND (4) 

CHARACTER*2  CT 

CHARACTER*60  LABELl , LABEL2 , LABELS , LABEL4 , CNTRL 

COMMON  / START/ FSTART,RXS,TYS,PZS 

COMMON  /LABELS/LABELl , LABEL2 , LABELS , LABEL4 , CNTRL 

READ  (1,100,END=1000)  CT, LABELl 
FORMAT  (1X,A2,1X,A60) 

IF  (CT  .NE.  'CT')  LABEL1='$' 

READ  (1,110)  COND, IXP ARM, NPTS,FSTART,RXS,TYS,PZS 
FORMAT  (1X,4A1,I1,I4,F7.3,3F9.3) 

GOTO  20 
CONTINUE 

Indicate  the  end  of  the  input  data  set 

COND(l)  =  'E' 
C0ND(2)  =  'N' 
C0ND(3)  =  'D' 
CONTINUE 
RETURN 
END 


C- 
C 

c 
c 
c 

C+++ 
C+++ 
C+++ 


************************ 

*   SUBROUTINE  READD   * 
************************ 

This  subroutine  reads  in  the  data 

SUBROUTINE  READD  (DATAIN, IXPARM,NPTS) 

REAL  X(4),DATAIN(1000,5) 

I CHANG  =  0 

DO  10  I  =  1,NPTS 

READ  (1,100)  X(4),X(1),X(2),X(3),(DATAIN(I,J),J=2,5) 
100    FORMAT  (1X,F7.3,3F9.3,4E10.3) 

IF  (ICHANG  .EQ.  1)  X(2)  =  360.  -  X(2) 

IF  (IXPARM  .EQ.  2  .AND.  X(2)  .EQ.  180.)  ICHANG  =  1 

DATAIN  (1,1)  =  X( IXPARM) 
10  CONTINUE 
RETURN 
END 


C- 
C 

c 
c 
c 

C+++ 
C+++ 
C+++ 
C+++ 


************************* 

*    SUBROUTINE  SELECT    * 
************************* 

This  subroutine  displays  the  various  options 
and  reads  in  the  choices 

SUBROUTINE  SELECT  (YHEAD, lYPARM, IPLOT,COND) 
INTEGER  IPL0T(4) 
CHARACTER''^  1  COND  (4) 
CHARACTER*3  YDIM,XAXIS , YAXIS 
CHARACTER*6  XQ , YQ , XPARM , YP ARM , YHEAD ( 4 ) 
CHARACTER'^8  YUNITS  (2  ,  3)/ '  V/M      '  ,  '  DBV/M 
I  'DBA/M    ' , 'W/SQ  M 

COMMON  /DPARMS/XQ , YQ , XPARM , YPARM , YDIM , XA: 
10  CONTINUE 


'  'A/M      ' 
'  ,''DBW/SQ  M'/ 
XIS, YAXIS 
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C+++ 
C+++ 
C+++ 


Select  the  type  of  plots 


20 


C+++ 
C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

READ 

IF 


■k 
■k 

(5 


SELECT  ONE  OF  THE  FOLLOWINGS 

1 )  PLOT  • ,  YHEAD i 

2)  PLOT  ' ,  YHEAD ( 

3 )  PLOT  ' ,  YHEAD i 

4)  PLOT  ' ,  YHEAD I 

5)  NO  PLOT' 
ENTER  THE  NUMBER  OF  THE  PLOT. 

(II)')  lYPARM 

LT.  1  .OR.  lYPARM 


GT.  5)  GO  TO  10 


15 


(lYPARM 
IF  (COND(l)  .EQ.  'F'  .AND.  lYPARM  .EQ.  1)  THEN 

CALL  FRTCMSCCLRSCRN  ') 

PRINT  *,  'THERE  IS  NO  ',YHEAD(1),'  FOR  FAR  FIELD  PLOT' 

PRINT  *,  'RE-ENTER  PLOT  SELECTION' 

PRINT  * 

GOTO  10 
END  IF 

IF  (lYPARM  .EQ.  5)  GOTO  1000 
YQ=YHEAD{IYPARM) 
IF  (IPLOT(IYPARM)  .EQ.  1)  THEN 

CALL  FRTCMS ( ' CLRSCRN  ' ) 

DO  15  1=1,4 

IF  (IPLOT(I)  .EQ.  1)  PRINT  *,  YHEAD(I), 
CONTINUE 

PRINT  *,     'RE-ENTER  PLOT  SELECTION' 

PRINT  * 

GOTO  10 
END  IF 

IPLOT(IYPARM)  =  1 
CONTINUE 


HAS  BEEN  PROCESSED 


Select  magnitude  or  phase  plot 

(Presently,  this  code  only  caters  for  magnitude  plot) 


CALL  FRTCMSCCLRSCRN 

PRINT  * 

PRINT  * 

PRINT  *, 

PRINT  *, 

PRINT  *, 

PRINT  *, 

ISELEC  = 

READ  (5, ' (II)') 

IF  (ISELEC  .LT. 

IF  (ISELEC  .EQ. 

IF  (ISELEC  .EQ. 


) 


'SELECT  ONE  OF  THE  FOLLOWINGS  : 
MAGNITUDE  PLOT' 
PHASE  PLOT ' 
'ENTER  THE  NUMBER  OF  THIS  PLOT.' 
0 

ISELEC 

1  .OR.  ISELEC  .GT.  2)  GOTO  20 
YPARM  =  'MAG' 
YPARM  =  'PHASE' 


I] 


h] 


Select  the  Y-axis'  unit. 


30 


40 


IF  (C0ND(4)  .EQ. 

IF  (C0ND(4)  .EQ. 

IF  (C0ND(4)  .EQ. 
CONTINUE 

CALL  FRTCMS ( ' CLRSCRN 

PRINT  * 

PRINT  * 

PRINT  *, 

PRINT  *, 

PRINT  *, 

PRINT  *, 

ISELEC  = 

READ  (5,  ' (II)') 

IF  (ISELEC  .LT. 

IF  (ISELEC  .EQ. 

IF  (ISELEC  .EQ. 
CONTINUE 


lYUNIT 
lYUNIT 
lYUNIT 

) 


SELECT  THE  UNITS  TO  BE  USED.' 


'1)  ' ,YUNITS(1,IYUNIT) 
•2)  '," 


YUNITS(2,IYUNIT) 
'ENTER  THE  NUMBER  OF  YOUR  CHOICE.' 
0 

ISELEC 

1  .OR.  ISELEC  .GT.  2)  GOTO  30 
YDIM  =  'LIN' 
YDIM  =  'DB' 


h\ 


C+++ 
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C+++ 
C+++ 


Select  linear  or  log  scale  plot 


SELECT  THE  TYPES  OF  PLOT  :  ' 

1)  X  :  LINEAR,  Y  :  LINEAR' 

2)  X  :  LINEAR,  Y  :  LOG    ' 

3)  X  :  LOG,     Y  :  LINEAR' 

4)  X  :  LOG,     Y  :  LOG    ' 
ENTER  THE  NUMBER  OF  YOUR  CHOICE.' 


CALL  FRTCMS('CLRSCRN  ') 
PRINT  * 
PRINT  * 
PRINT  *, 
PRINT  *, 
PRINT  *, 
PRINT  *, 
PRINT  *, 
PRINT  *, 
ISELEC  =  0 

READ  (5,  '  (II)')  ISELEC 

IF  (ISELEC  .LT.  1  .OR.  ISELEC  .GT.  4)  GOTO  40 
XAXIS  =  'LIN' 
YAXIS  =  'LIN' 

IF  (ISELEC  .EQ.  2  .OR.  ISELEC  .EQ.  4)  YAXIS  =  'LOG' 
IF  (ISELEC  .EQ.  3  .OR.  ISELEC  .EQ.  4)  YAXIS  =  'LOG' 
1000  CONTINUE 
RETURN 
END 


C 
C 

c 
c 
c 

C+++ 
C+++ 
C+++ 
C+++ 


************************* 

*   SUBROUTINE-  WRITEC   * 
************************* 


C+++ 
C+++ 
C+++ 


This  subroutine  prepares  and  writes  the  various  labels 
and  fields  needed  to  create  the  control  file 

SUBROUTINE  WRITEC  (NPTS,COND) 

CHARACTER*1  C0ND(4) 

CHARACTER*3  XAXIS , YAXIS ,YDIM 

CHARACTER'^^4  UNITS$ 

CHARACTER* 5  NPT$ 

CHARACTER*6  RXC$ , TYC$ , PZC$ , XQ , YQ , XPARM , YPARM , FIELD$ 

CHARACTER*?  FS$ 

CHARACTER*9  RX$,TY$,PZ$ 

CHARACTER*60  LABELl , LABEL2 , LABELS , LABEL4 , CNTRL 

COMMON  /START/FSTART,RXS,TYS,PZS 

COMMON  /DPARMS / XQ , YQ , XPARM , YPARM , YDIM , XAXI S , YAXIS 

COMMON  /LABELS/LABELl , LABEL2 , LABEL3 , LABEL4 , CNTRL 

Converts  numerical  variables  to  characters 

OPEN  (4,STATUS='NEW') 

WRITE  (4,100)  NPTS,FSTART,RXS,TYS,PZS 
100  FORMAT  (1X,I4,1X,F7.3,3F9.3) 

CLOSE  (4) 

OPEN  (4,STATUS='0LD' ) 

READ  (4,110)  NPT$,FS$,RX$,TY$,PZ$ 
110  FORMAT ( IX, A5,A7,3A9) 

CLOSE  (4,STATUS=' DELETE ' ) 


C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 
C+++ 
C+++ 


Create  the  control  statement 

CNTRL  =  'NEW  ' //NPT$//XQ// '  '//XPARM// 
*YDIM//'  '//XAXIS//'  '//YAXIS 


'//YQ//'  '//YPARM//'  '// 


Prepare  the  labels 

Label  1  displays  the  title  of  the  plot 
Label  2  to  4  display  the  initial  conditions 

UNITS$  =  '  M' 

RXC$  =  ' (X)=  ' 

TYC$  =  ' (Y)=  ' 

PZC$  =  ' (Z)=  ' 

IF  (C0ND(3)  .EQ.  'R')  GOTO  10 

UNITS$  =  '  DEG' 
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10 


C+++ 
C+++ 
C+++ 


c- 

c 

c 

c 

c 

C+++ 
C+++ 
C+++ 


RXC$  =  ' ()R  =  ' 
TYC$  =  '?Q)  =  ' 
PZC$  =  '?F)  =  ' 
CONTINUE 
IF  (COND(l)  .EQ. 
IF  (COND(l)  .EQ. 
LABEL2=FIELD$//' 
LABEL3='  FREQ  = 


LABEL4='  7/TYC$//TY$//UNITS$// 


'F')  FIELDS  =  '  (F)AR' 

'N' )  FIELDS  =  '  (N)EAR' 

FIELD  (GTD)  PLOT  WITH  STARTING  COND.  AS  FOLLOWS$' 

//FS$//'  (GH)Z       '//RXC$//RXS//'  M$ ' 


//PZC$//PZ$//UNITS$// ' $ 


Writes  the  control  statement  and  labels  onto  the  control  file 


WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

RETURN 

END 


3, 
3, 
3, 
3, 
3, 


'A60' 
A60' 
A60; 
A60 
A60 


CNTRL 

LABELl 

LABEL2 

LABEL3 

LABEL4 


************************* 

*    SUBROUTINE  WRITED    * 
************************* 

This  subroutine  writes  the  appropriate  data  to  GTDPDATA  file 

SUBROUTINE  WRITED  (DATAIN, COND,NPTS , lYPARM) 

REAL        DATAIN (1000, 5) 

CHARACTER*!  COND (4) 

CHARACTER'^3  YDIM,XAXIS ,  YAXIS 

CHARACTER*6  XQ  ,  YQ ,  XPARM ,  YPARM- 

COMMON  /DPARMS/XQ , YQ , XPARM , YPARM , YDIM , XAXIS , YAXIS 

DUMMY  =0. 

lY  =  lYPARM  +  1 

DO  10  I  =  1,NPTS 

IF  (YDIM  .EQ.  'DB  ')  THEN 

IF  (DATAIN(I,IY)  .LE 

COND (4)  .EQ. 

C0ND(4)  .EQ. 

,C0ND(4)  .EQ. 


IF 
IF 

IF 


l.E-20)  DATAIN(I,IY)=l.E-20 


DATA=20 .  '^ALOGIO  ( DATAIN  ( 
DATA=20.*ALOG10{ DATAIN! 
DATA=10.*ALOG10( DATAIN ( 


ELSE 


100 

10 


DATA=DATAIN(I,IY) 
END  IF 

WRITE  (2,100)  DATAIN(I,1), 
FORMAT (5X,3F10. 3) 
CONTINUE 
RETURN 
END 


DATA,  DUMMY 
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2.        OUTPUT  DATA  PLOTTING  CODE  (GTDPLOT) 
a.  Flow  Chart 


Mafn  Program 


start 


L 


I 


OImoi* 


SUBR,    PAg>fi. 


rt«o»  cooiorl 
oartartart  4 


■  SUaR.  PLOT 
plots  trw  grapn 


.iUlfi 


Hfigfr 


plot 


Stop 
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Flow  Chart  For  GTDPLOT  (continue) 
Subroutine  PARMS 


start 


rt«0»  In  lh» 

control 
1nfor««tfon 
4  9cnos  ft 


SUBR.  XTRACT 


•can*  4  cn«cKs 

for  tOK9n  4 

rntrrm 

corrwD.    Tnd»it 


SU8P.    ^AJWftFR 


9x tracts 
tnt»gtr  fPo« 
data  strMB 


CTL«'ENO\   •^t 
EM)-. TRUE. 


SliBR. 


in  plot 


r»«cs    in  p 
data 


E 


txtract*  axrs 
laoela.  acale*. 

tycrs  of  olol 


return 


reeca   tn 

labels  I 

9cr:o«   iroi 


return 


b.  Program  Listing 


**************************** 

*  GTDPLOT  * 

*  MODIFIED  FROM  NFPLOT    * 

*  BY  KOH  WEE  JIN      * 

*  ON  MAY  29  1986      * 

*  AT  NPS  * 
**************************** 


C 
C 

c 
c 
c 
c 
c 

C+++ 

C+++  This  program  reads  in  the  Control  and  Data  files  created  by 

C+++   GTDRWSEL. 

C+++  It  then  select  the  appropriate  labels  and  scales  and  plot  types 

C+++  and  plot  them  using  Disspla  subroutines 

C+++ 

L0GICAL*4     STRTED 

L0GICAL*4    END  /.FALSE./ 

COMMON  /DISPLA/  STRTED 
C+++ 

C+++  Turn  off  the  start  indicator 
C+++ 

STRTED  =  .FALSE. 
C+++ 

C+++  Initialize  Disspla 
C+++ 

CALL  DISSET 
C+++ 

C+++  Plot  until  'END'  control  statement  is  detected 
C+++ 

1010  CONTINUE 
C+++  . 

C+++  Read  control  statements  and  labels  to  be  plotted. 
C+++ 

CALL  PARMS(END) 

IF  (END)  GO  TO  1020 
C+++ 

C+++  Plot  the  graph 
C+++ 

CALL  PLOT 
C+++ 

C+++  Indicate  that  we  have  completed  at  least  one  plot. 
C+++ 

STRTED  =  .TRUE. 

GO  TO  1010 
C+++ 

C+++  End  of  plot.  Otherwise,  program  abort  through  an  error  handling 
C+++  routine. 
C+++ 
1020  CONTINUE 

CALL  D I SEND 

STOP 

END 


*********************** 

*   SUBROUTINE  ALGPLT   * 
*********************** 


C 
C 

c 
c 
c 

C+++ 

C+++  This  subroutine  replaces  the  Disspla  subroutine  ALGPLT. 

C+++  It  provides  a  rounded  axis  origin  and  log  cycle  length  in 

C+++  inches  per  cycle. 

C+++ 

C+++  Modification  is  provided  to  eliminate  truncated  axes  symptomatic 

C+++  in  logarithmic  plots,  only  full  log  cycles  are  returned 

C+++ 

SUBROUTINE  ALGPLT (AMIN,  AMAX,  AXLEN,  AO ,  ACY) 

REAL*4       AMIN 
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REAL*4       AMAX 

REAL*4       AXLEN 

REAL*4       AO 

REAL*4       ACY 

REALMS       DMIN 

REAL*8       DHAX 

REALMS       DXLEN 

REAL*8       DAO 

REAL*8       OMAGO 

REALMS       OMAGl 

INTEGER*4    MAGDIF 
C+++ 

C+++  Do  it  all  in  double  precision 
C+++ 

DMIN  =  AMIN 

DMAX  =  AMAX 

DXLEN  =  AXLEN 
C+++ 

C+++  Get  the  order  of  magnitude  of  the  minimum  value 
C+++ 

OMAGO  =  DLOGIO(DMIN) 
C+++ 

C+++  If  the  minimum  is  an  even  power  of  10,  then  use  it  as  the  lower 
C+++  limit.  Otherwise,  go  to  next  lower  order  of  magnitude. 
C+++ 

IF  (IDINT(OMAGO)  .NE.  OMAGO)  OMAGO  =  IDINT(OMAG0  -  1.) 
C+++ 

C+++  Do  the  same  for  the  maximum. 
C+++ 

OMAGl  =  DLOGIO(DMAX) 
C+++ 

C+++  If  the  minimum  is  an  even  power  of  10,  then  use  it  as  the  upper 
C+++  limit.  Otherwise,  go  to  next  higher  order  of  magnitude. 
C+++ 

IF  (IDINT(OMAGl)  .NE.  .OMAGl)  OMAGl  =  IDINT(0MAG1  +1.) 
C+++ 

C+++  Compute  the  origin 
C+++ 
1010  CONTINUE 

DAO  =  10. DO**IDINT (OMAGO) 

IF  (DAO  .GT.  DMIN)  THEN 

OMAGO  =  IDINT (OMAGO)  -  1. 
GO  TO  1010 

END  IF 
C+++ 

C+++  Compute  the  difference  in  order  of  magnitude  and  the  number  of 
C+++  user  units  (usually  in  inches)  per  cycle  of  log. 
C+++ 
1020  CONTINUE 

MAGDIF  =  (OMAGl  -  OMAGO)  -  1. 

IF  ((DAO  ^   10.D0**MAGDIF)  .LT.  DMAX)  THEN 
OMAGl  =  OMAGl  +  1. 
GO  TO  1020 

ENDIF 

AO  =  DAO 

ACY  =  DXLEN  /  MAGDIF 

RETURN 

END 


C 
C 

c 
c 

C+++ 

C+++  This  subroutine  scans  for  the  first  non-blank  character  and 

C+++  returns  with  the  pointer  (I)  set  to  point  to  the  character. 


*      SUBROUTINE  BLSRCH   * 

kkkkkkkkkkkkkkkkkkkkkkk 


C+++ 


SUBROUTINE  BLSRCH(LINE,  I) 
CHARACTER^l   LINE (80) 
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CHARACTER*!   BLANK  /'  '/ 
C+++ 

C+++  If  we  have  gone  beyond  the  end  of  the  line,  complain  and  abort, 
C+++ 

IX  =  I 

IF  (I  .GE.  81)  GO  TO  8010 
C+++ 

C+++  Scan  for  a  non-blank 
C+++ 

DO  1010  I  =  IX,  80 

IF  (LINE (I)  .NE.  BLANK)  RETURN 
1010  CONTINUE 
C+++ 

C+++  Error  message. 
C+++ 
8010  CONTINUE 

CALL  ERRMSG(IX,  'Unexpected  end  of  line  detected. $') 

CALL  DISEND 

STOP  400 

END 


*   SUBROUTINE  DISEND   * 


c 
c 
c 
c 

C+++ 

C+++  End  of  Disspla 

C+++ 

SUBROUTINE  DISEND 

L0GICAL*4     STRTED 

COMMON  /DISPLA/  STRTED 

IF  (STRTED)  CALL  DONEPL  " 

IF  (.NOT.  STRTED)  WRITE(6 ,9010) 

RETURN 
9010  FORMAT ('ONO  PLOTS  GENERATED...  PROGRAM  ABORT.') 
.  END 


*********************** 

*   SUBROUTINE  DISSET   * 
*********************** 


C 

c 
c 
c 

C+++ 

C+++  This  subroutine  establishes  the  parameters  for  Disspla. 

C+++ 

SUBROUTINE  DISSET 

CALL  COMPRS 
CXXX  CALL  SETCPR(0,  1,  0,  0) 

CALL  PAGE (8. 5,  11.0) 
C+++ 

C+++   Lettering  is  FUTURA  with  upper  case  and  lower  case. 
C+++   Upper  case  letters  are  delimited  by  '('  escape  character. 
C+++ 

CALL  BLOWUP  (.5) 

CALL  FUTURA 

CALL  BASALF ( ' L/CSTANDARD ' ) 

CALL  MIXALF( 'STANDARD' ) 

CALL  MX3ALF( ' INSTRUCTION' ,  ' I' ) 

CALL  MX4ALF( 'L/CGREEK' ,  '?') 

CALL  NOBRDR 
C+++ 
C+++  Integer  (or  rounded)  axes  with  Y  axis  labelling  at  0  degrees 


C+++ 


CALL  INTAXS 
CALL  YAXANG(0.) 
RETURN 
END 


*********************** 
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CI     I      *      SUBROUTINE   ERRMSG      * 

C+++ 

C+++  This  subroutine  writes  an  error  message  to  the  logical  unit  6. 
C+++ 

SUBROUTINE  ERRMSG(N,  MSG) 

CHARACTER*!   DOLLAR  /'$'/ 

CHARACTER*!   MSG(!) 

CHARACTER*!   BAR  /'  '/ 

CHARACTER*!   BLANK  7'  7 
C+++ 

C+++  Indicate  the  error  by  writing  the  bar  below  it. 
C+++ 

WRITE(6,90!0)  (BLANK,  1=2,  N),  BAR 
C+++ 

C+++  Find  the  end  of  the  message. 
C+++ 

DO  10!0  I  =  !,  80 

IF  (MSG(I)  .EQ.  DOLLAR)  GO  TO  1020 
1010  CONTINUE 

1  =  8! 
C+++ 

C+++  Write  the  message. 
C+++ 
1020  CONTINUE 

1  =  1-! 

WRITE(6,90!0)  (MSG(J),  J  =  !,  I) 

RETURN 
90!0  FORMAT (!X,80A!) 

END 


*   SUBROUTINE  EXPONE   * 


C 
C 

C 

c 

C+++ 

C+++  This  subroutine  concatenates  the  exponent  (if  required). 

C+++ 

SUBROUTINE  EXPONE (INVEC,* EXPON) 
CHARACTER*!   INVEC(64) 
INTEGER*4     EXPON 
INTEGER*4  .   FILL  /ZQOOOOOFO/ 
CHARACTER*!   HEXCHR(4) 
INTEGER*4    DUMMY 
EQUIVALENCE  ( HEXCHR ( ! ) , DUMMY ) 
IF  (EXPON  .EQ.  0)  RETURN 
C+++ 

C+++  Find  the  end  of  the  input  vector  and  generate  the  exponent. 
C+++ 

DO  !0!0  I  =  !.  64 

IF  (INVEC(I)  .EQ.  '$')  GO  TO  1020 
!0!0  CONTINUE 

CALL  ABEND (' EXPONE ' ,  'Unable  to  concatenate.  Vector  full.$') 
!020  CONTINUE 

INVEC(I)  =  '  ' 
I  =  I  +  ! 

CALL  TIMS!0(INVEC(I),  I) 
IXP  =  EXPON 
IF  (IXP  .LT.  0)  THEN 
IXP  =  lABS(IXP) 
INVEC(I)  =  '-' 
I  =  I  +  ! 
ENDIF 

IXX  =  IXP  /  !0 
IF  (IXX  .NE.  0)  THEN 
DUMMY  =  IXX  +  FILL 
INVEC(I)  =  HEXCHR(4) 
I  =  I  +  ! 
IXP  =  IXP  -  (IXX  *  ID) 
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END  IF 

DUMMY  =  IXP  +  FILL 

INVEC(I)  =  HEXCHR(4) 

1  =  1  +  1 

INVEC(I)  =  '$' 

RETURN 

END 


*********************** 

*   SUBROUTINE  GETTOK   * 
*********************** 


C 

c 
c 
c 

C+++ 

C+++  This  subroutine  extracts  an  8  character  token. 

C+++ 

SUBROUTINE  GETTOK (LINE,  I,  TOKEN) 

CHARACTER*!   LINE (80) 

CHARACTER*8   TOKEN 

CHARACTER*8  TOK 

CHARACTER*!   CHAR(8) 

EQUIVALENCE  (CHAR(l),  TOK) 

CHARACTER*8   BLANKS  /'         '/ 

CHARACTER*!   BLANK  /'  7  • 

CHARACTER*!   COMMA  / ' , 7 
C+++ 

C+++  Clear  the  token. 
C+++ 

TOK  =  BLANKS 
C+++ 

C+++  Find  the  first  non-blank  character. 
C+++ 

CALL  BLSRCH(LINE,  I) 
C+++ 

C+++  Extract  the  token  (up  to  8  characters). 
C+++ 

N  =  1 

IX  =  I 

DO  !0!0  I  =  IX,  80 

IF  (LINE(I)  .EQ.  BLANK)  GO  TO  !030 

IF  (LINE (I)  .EQ.  COMMA)  GO  TO  !020 

IF  (N  .EQ.  9)  GO  TO  80!0 
C+++ 

C+++  Character  Ok.  So  put  it  into  the  token  buffer. 
C+++ 

CHAR(N)  =  LINE(I) 

N  =  N  +  ! 
10!0  CONTINUE 

1  =  8! 

RETURN 
C+++ 

C+++  Exit  if  comma  found  after  bumping  the  pointer. 
C+++ 
!020  CONTINUE 

I  =  I  +  ! 
1030  CONTINUE 

TOKEN  =  TOK 

RETURN 
C+++ 

C+++     Error,  token  length  is  >  8. 
C+++ 
8010  CONTINUE 

CALL  ERRMSG(I, 
I    'Command  word  or  token  length  exceeds  8  characters.$ ' ) 

CALL  DISEND 

STOP  500 

END 


*********************** 
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CM      *      SUBROUTINE   LINLIN      * 

C+++ 

C+++  This  subroutine  sets  up  DISSPLA  for  a  Linear-Linear  axis  plot, 
C+++ 

SUBROUTINE  LINLIN 

REAL*4       XMIN 

REAL*4       XMAX 

REAL*4       YMIN 

REAL'*^4       YMAX 

COMMON  /RANGE/  XMIN,  XMAX,  YMIN,  YMAX 

CALL  GRAF(XMIN,  'SCALE',  XMAX,  YMIN,  'SCALE',  YMAX) 

RETURN 

END 


kkkkkkkkkkkkkkkkkkkkkkk 
*      SUBROUTINE   LINLOG      * 

kkkkkkkkk-kkkkkkkkkkkkkk 


C 
C 
C 
C 
C+++ 

C+++  This  subroutine  sets  up  DISSPLA  for  a  Linear-Log  axis  plot, 
C+++ 

SUBROUTINE  LINLOG 

REAL*4       XMIN 

REAL*4       XMAX 

REAL*4       YMIN 

REAL*4       YMAX 

COMMON  /RANGE/  XMIN,  XMAX,  YMIN,  YMAX 
C+++ 

C+++  Get  the  proper  scaling  for  both  axes. 
C+++ 

CALL  AXSPLT(XMIN,  XMAX,  6.0,  XORIG,  XSTEP,  DUMMY) 

CALL  ALGPLT{YMIN,  YMAX,  6.0,  YORIG,  YCYCLE) 
C+++ 

C+++  Set  up  DISSPLA  for  a  Log  scale  on  the  Y  axis. 
C+++ 

CALL  YLOG( XORIG,  XSTEP,  YORIG,  YCYCLE) 

RETURN 

END 


kkkkkkkkkkk-kkk-kkkkkkk 

*   SUBROUTINE  LGLG   * 

kkkkkkkkkkkkkkkkkkkkk 


C 
C 
C 
C 

C+++ 

C+++  This  subroutine  sets  up  DISSPLA  for  a  Log-Log  axis  plot. 

C+++ 

SUBROUTINE  LGLG 

REAL*4       XMIN 

REAL*4       XMAX 

REAL*4       YMIN 

REAL*4       YMAX 

COMMON  /RANGE/  XMIN,  XMAX,  YMIN,  YMAX 
C+++ 

C+++  Get  the  proper  scaling  for  both  axes. 
C+++ 

CALL  ALGPLT(XMIN,  XMAX,  6.0,  XORIG,  XCYCLE) 

CALL  ALGPLT(YMIN,  YMAX,  6.0,  YORIG,  YCYCLE) 
C+++ 

C+++  Set  up  DISSPLA  for  a  Log-Log  scale  plot. 
C+++ 

CALL  LOGLOG (XORIG,  XCYCLE,  YORIG,  YCYCLE) 

RETURN 

END 


kkkkkkkkkkkkkkkkkkkkkkk 

*   SUBROUTINE  LOGLIN   * 

kkkkkkkkkkkkkkkkkkkkkkk 
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C+++ 

C+++  This  subroutine  sets  up  DISSPLA  for  a  Log-Linear  axis  plot. 

C+++ 

SUBROUTINE  LOGLIN 

REAL'^^4       XMIN 

REAL*4       XMAX 

REAL*4       YMIN 

REAL*4       YMAX 

COMMON  /RANGE/  XMIN,  XMAX,  YMIN,  YMAX 
C+++ 

C+++  Get  the  proper  scaling  for  both  axes. 
C+++ 

CALL  ALGPLT(XMIN,  XMAX,  6.0,  XORIG,  XCYCLE) 

CALL  AXSPLT(YMIN,  YMAX,  6.0,  YORIG,  YSTEP,  DUMMY) 
C+++ 
C+++  Set  up  DISSPLA  for  a  Log  scale  on  the  X  axis. 


C+++ 


CALL  XLOG (XORIG,  XCYCLE,  YORIG,  YSTEP) 

RETURN 

END 


*      SUBROUTINE  NUMBER   * 

■kkk-kk-kk-kkkk-k-kkkkkk-kkkkk 


C 
C 
C 
C 

C+++ 

C+++  This  subroutine  extracts  an  integer  from  the  data  stream. 

C+++ 

SUBROUTINE  NUMBER(LINE,  I,  N) 

CHARACTER'^l   LINE  (80' 

CHARACTER^l   TOKEN (8 1 

CHARACTER*1   ZERO  /'O'/ 

CHARACTER'^1   NINE  /'97 

CHARACTER^l   BLANK  /'  '/ 

INTEGER*4    ZIP 

CHARACTER*!   NONE (4)  /3*Z00,'0  7 

EQUIVALENCE  (NONE(l),  ZIP) 

INTEGER'^4    NUM 

CHARACTER*!   BYTES (4)  /4*Z00/ 

EQUIVALENCE  (NUM,  BYTES) 
C+++ 

C+++  Extract  the  token. 
C+++ 

CALL  GETTOK(LINE,  I,  TOKEN) 
C+++ 

C+++  Get  the  number. 
C+++ 

N  =  0 

DO  1010  J  =  1,  8 

IF  (TOKEN(J)  .EQ.  BLANK)  RETURN 

IF  ((TOKEN(J)  .LT.  ZERO)  .OR.  (TOKEN(J)  .GT.  NINE))  GO  TO  8010 
C+++ 

C+++  Extract  the  digit  and  get  it  into  the  number. 
C+++ 

BYTES  I 

N 
1010  CONTINUE 

RETURN 
C+++ 

C+++  Error.  Not  a  digit. 
C+++ 
8010  CONTINUE 

CALL  ERRMSG(I,  'Not  a  digit.$') 

CALL  DISEND 

STOP 

END 


rTES(4)  =  TOKEN(J) 
=  (N  *  10)  +  (NUM  -  ZIP) 


kkkkkkkkkkkkkkkkkkkkkk 
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c| 

C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 


*   SUBROUTINE  FARMS   * 


This  subroutine  reads  control  parameters  and  data 
The  control  statement  syntax  is: 

line  1  -- 

<STATUS><NPTS><X  QXX  PARMXY  QXY  PARMXY  UNITXX  AXISXY  AXIS> 


where  <STATUS> 
<NPTS> 

<X  Q> 
<X  PARM> 
<Y  Q> 


is  'OLD 


'NEW 


or  'END' 


is  the  number  of  points  to  be  plotted 
'OLD'  of  'END'  is  selected), 
is  'X',  'Y',  'Z',  'R',  'THETA',  'PHI' 
is  'DIST',  'MAG',  'ANGLE'  or  'FREQ' 
si  'ER',  'EX',  'EPHI',  'EY',  'ETHETA' 
' EPEAK ' ,  • HR ' ,  ' HX ' ,  ' HPHI ' ,  ' HY ' 
' HZ • ,  ' HPEAK ' ,  ' PR ' ,  ' PX ' ,  ' PPHI ' 
' PTHETA ' ,  ' PZ ' 


(omit  if 
or  'FREQ' 


or  'PPEAK 


'EZ' 
'HTHETA" 
'  PY '  , 


<Y  PARM>  is  'DIST 


MAG' 


or  'PHASE'  (<X  PARM>  and 


<Y  UNIT> 
<X  AXIS> 
<Y  AXIS> 


<Y  PARM>  are  mutually  exclusive), 

is  'LIN'  or  'DB' 

is  'LIN'  or  'LOG' ,  and 

is  'LIN'  or  'LOG' . 


line  2  to  5  are  <LABEL> ' s 


where  <LABEL> 


is  a  label  up  to  60  characters  (letters  to 

be  capitalized  must  be  enclosed  in  parentheses) 

terminated  by  the  '$'  character. 


SUBROUTINE  PARMS(END) 
REAL '^4  DATA  (1000,  3) 
INTEGER*4  NPTS 
INTEGER*4  PI 
INTEGER*4  P2 
CHARACTER^l  LABEL1(80 
CHARACTER^l  LABEL2(80 
CHARACTER*1  LABELS (80 
CHARACTER*1  LABEL4(80 
INTEGER*4  XTYPE 
INTEGER^4  YTYPE 
INTEGER*4  XQUAL 
INTEGER*4  YQUAL 
INTEGER*4    YU 

COMMON  /DPARMS/  DATA,  NPTS,  PI,  P2 ,  LABELl ,  LABEL2 ,  LABELS 
LABEL4,  XTYPE,  YTYPE,  XQUAL,  YQUAL,  YU 
END 

CTL(80) 

SELECT(5)  /'DIST' , 
' MAG ' , 
' PHASE ' , 
' ANGLE ' , 
' FREQ ' / 
XQUALS(7)  /'X'  , 
'Y', 
'Z', 
'R', 
' PHI ' , 
' THETA ' , 
'F'/ 
YUNIT(2)   /'LIN', 

'DB'/ 
YQUALS(21)  /'ER' ,  'EX' 
'EPEAK' , 
' HR ' ,  ' HX ' 
'HPEAK' , 

'PR'     'PX'     '■DTMTTTa"     I 

'PPEAK'/ 


L0GICAL*4 
CHARACTER* 1 
CHARACTER*8 


CHARACTER'S 


CHARACTER'8 
CHARACTER'8 


' ETHETA ' 
' HTHETA ' 
' PTHETA ' 


'EY' 

'HY' 

PY' 


'EPHI 
'HPHI 


',  'EZ', 
',  'HZ', 


PPHI ' ,  ' PZ ' , 


60 


C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 

C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 
1010 


C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 
1020 


C+++ 
C+++ 
C+++ 
1030 


C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 


CHARACTER*8  C0MAND(3)  /'NEW, 
I  'OLD', 

I  ' END ' / 

CHARACTER*8  TYPES (2)  /'LIN', 
I  'LOG'/ 

L0GICAL*4  DATAIN  /.FALSE./ 

Read  the  control  information  and  echo  it. 

READ(5,9010,END=8010)  CTL 
WRITE(6,9020)  CTL 

Parse  the  control  information 

1  =  1 

Data  source: 

OLD  --  use  data  already  read  in. 

NEW  —  read  a  new  block  of  <NPTS>  points 

END  —  end  of  job 

CALL  XTRACT(CTL,  I,  COMAND,  3,  JUMP) 
GO  TO  (1010,  1030,  1020),  JUMP 

'NEW  selected. 

CONTINUE 
INUMER  =  I 
CALL  NUMBER (CTL,  I,  NPTS) 

only  1000  or  less  points  allowed. 

IF  (NPTS  .GT.  1000)  GO  TO  8020 
CALL  READ IN 
GO  TO  1030 

'END'  selected. 

CONTINUE 
END  =  .TRUE. 
RETURN 

Process  the  X  and  Y  PARM  specifications 

CONTINUE 
CALL  XTRACT(CTL,  I,  XQUALS ,  7,  XQUAL) 
CALL  XTRACT(CTL,  I,  SELECT,  5,  PI) 
CALL  XTRACT(CTL,  I,  YQUALS ,  21,  YQUAL) 
CALL  XTRACT(CTL,  I,  SELECT,  5,  P2) 
PRINT  *,  ' XQUALS (XQUAL )=', XQUALS (XQUAL) 
PRINT  *,  ' YQUALS (YQUAL )=', YQUALS (YQUAL) 
PRINT  *,  'XSELECT(P1)=' ,SELECT(P1) 
PRINT  *,  'YSELECT(P2)=' ,SELECT(P2) 

Select  the  Y  axis  unit. 

CALL  XTRACT(CTL,I,YUNIT,2,YU) 
PRINT*,  'YUNIT(YU)=' ,YUNIT(YU) 

Select  the  axis  type 

CALL  XTRACT(CTL,  I,  TYPES,  2,  XTYPE) 
CALL  XTRACT(CTL,  I,  TYPES,  2,  YTYPE) 
PRINT  *,  ' TYPES (XTYPE )=', TYPES (XTYPE) 
PRINT  *,  ' TYPES (YTYPE )=', TYPES (YTYPE) 

Read  in  the  labers 
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C+++ 

C+++ 

C+++ 

8010 


READ(5,9010,END=8030)  LABELl 
WRITE (6, 9020)  LABELl 
READ(5,9010,END=8030)  LABEL2 
WRITE(6,9020)  LABEL2 
READ(5,9010,END=8030)  LABELS 
WRITE(6,9020)  LABELS 
READ(5,9010,END=80S0)  LABEL4 
WRITE (6, 9020)  LABEL4 
RETURN 

Error  messages 


CONTINUE 

CALL  ERRMSG(1,  'No  END  statement  found.$') 

CALL  DISEND 

STOP  100 
8020  CONTINUE 

CALL  ERRMSG(INUMER,  'Number  of  points  exceeds  1000.$') 

CALL  DISEND 

STOP  200 
80S0  CONTINUE 

CALL  ABEOF('PARMS  ' ,  5) 
9010  FORMAT(80A1) 
9020  FORMAT ( IX, 80A1) 

END 


C 
C 
C 

c 

c 

C+++ 
C+++ 
C+++ 


********************* 

*      SUBROUTINE  PLOT   * 
********************* 

This  subroutine  plots  the  data. 

SUBROUTINE  PLOT 

REAL*4       DATA ( 1000, S) 


INTEGER'^4 

INTEGER'^4 

INTEGER*4 

CHARACTER*1 

CHARACTER*1 

CHARACTER* 1 

CHARACTER^l 

INTEGERS 

INTEGER*4 

INTEGER*4 

INTEGER*4 

INTEGER*4 


NPTS 

PI 

P2 

LABELl (80" 

LABEL2(80 

LABELS (80 

LABEL4(80' 

XTYPE 

YTYPE 

XQUAL 

YQUAL 

YU 


COMMON  /DPARMS/  DATA,  NPTS,  PI,  P2 ,  LABELl,  LABEL2 ,  LABELS, 
LABEL4,  XTYPE,  YTYPE,  XQUAL,  YQUAL,  YU 
EXPONX 
EXPONY 
XMIN 
XMAX 
YMIN 
YMAX 

common  /range/  xmin,  xmax,  ymin,  ymax 
character*64  namvec 

d)istance 

mIagnitude 

P)HASE  ' 
NGLE 
REQUENCY  '/ 

M( 
M( 
M( 


INTEGER*4 

INTEGERM 

REAL*4 

REAL*4 

REAL*4 

REAL*4 


CHARACTER*12  NAME (5)  / 


F 
CHARACTER*16  XUNITS(7)  /' 


62 


C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 


CHARACTER*40  YUNITS(21,2 
DATA  ((YUNITS(I,J),I=1,7 


DATA  ((YUNITS(I,J) 


LH.75)X  LXHX 
LH.75)Y  LXHX 
LH.75)Z  LXHX 
LH.75)R  LXHX 
LH.75)X  LXHX 
LH.75)?Q) ILXHXF8 
LH.75)YrLXHX)  (( 
LH.75)?F) ILXHXF8 
LH.75)Z|LXHX)  (( 
LH.75)(PEAK)|lXHX) 


/' (E|LH.75)RlLXHX) 


LXHXF8) 
LXHXF8) 
(PEAK) I LXHX) 


LH.75)X  LXHX 
LH.75)Y  LXHX 
LH.75)Z  LXHX 
LH.75)R  LXHX 
LH.75)X  LXHX 
LH.75)?Q) ILXHXF8 
LH.75)YrLXHX)  (( 
LH.75)?F) ILXHXF8 
LH.75)Z|LXHX)  (( 
LH.75)(PEAK) JLXHX) 


,J=1,2,  ,        , 

)$' , ' (E  LH.75 
)$' , '(E  LH.75 
)$', ' (E   LH.75 

Op^BV   /M(5)$', 
BV)/M())$ 
"-(BV)7 

/M(    )$    . 

D(BV)/M())$'/ 

,J=1,2)    /' (Hi LH.75 )R I LXHX) 


;v)/M< 

VVM( 
y)/M( 
7) /v. 


()P(By)7M(^)$ 


DATA    ((YUNITS(I,J) 


LH.75 

LH.75' 

LH.75' 

LH.75' 

LH.75 

LH.75 

LH.75 

LH.75' 

LH.75 

LH.75' 

LH.75 

LH.75' 

LH.75 

LH.75' 


LXHX) 
LXHX) 


H  LH.75' 
)$' , ' (H  LH.75 
)$' , ' (H  LH.75 
/H(    )$', 
./M        $' 
()p(BA   /M())$', 
BA)/M())$' 
()p(BA    /M(5)$', 

,     (Op(BA)/M())$7 
I=15,21),J=1,2)/ 

■  !3  r- 


LXHXF8)  ( 
LXHXF8)  ( 
(PEAK) I LXHX) 


,(A)/M(. 
(A)/M( 


((W)/SQ 
((W)/SQ 


'Q)|LXHXF8)'((V?)/S6'M(5)$ 
--   ((W)/SQ  M(J)$- 


YfLXHX) 
?F) ILXHXF8) 
Z I LXHX)  ((W 
(PEAK)  LXHX 
R I LXHX)  (( 
X  I LXHX)  (( 
?Q) ILXHXF8 
YfLXHX)  (( 
?F) iLXHXF8 
Z I LXHX)  (( 


)/SQ 
Q  M(y,   . 
((W)/SQ  M( 


M(h$ 
)$ 


ID(BW)/SQ 
iD(BW)/SQ 
^()D(BW)/SQ 
BW)/SQ  M(y)$ 


"n\] 


M(  )$ 


()d(b;^)/s 

.  >BW)/SQ  M( 

(peak)Ilxhx)  (()D(BW)/ 


M())$', 
)$', 
SQ  M())$7 


Find  minimum  and  maximum 


IPl  =  1 

CALL  MINMAX ( DATA (1, IPl),  NPTS,  XMIN,  XMAX) 

IP2  =  2 

CALL  MINMAX ( DATA (1,IP2),  NPTS,  YMIN,  YMAX) 

PRINT*,  'XMIN=' ,XMIN, '       XMAX=',XMAX 


PRINT  * 
PRINT  * 
PRINT  * 
PRINT  * 


YMIN= ' , YMIN , '       YMAX= ' , YMAX 
'PI   =',P1,'      P2   =',P2 
'NAME(P1)=' , NAME (PI) 
'NAME(P2)=' ,NAME(P2) 


CALL  AREA2D(6.,  6.) 

Write  the  headers 

CALL  HEADIN(LABEL1,  100, 

CALL  HEADIN(LABEL2,  100, 

CALL  HEADIN(LABEL3,  100, 

CALL  HEADIN(LABEL4,  100, 

Label  the  axes 


1.0, 
1.0, 
1.0, 
1.0, 


NAMVEC=NAME (PI ) // '     ' //XUNITS (XQUAL) 

PRINT*,  'NAMVEC=' ,NAMVEC 

CALL  SCLDAT(DATA(1,IP1),  NPTS,  EXPONX,  XMIN,  XMAX) 

CALL  EXPONE(NAMVEC,  EXPONX) 

PRINT*,  'XNAME=' ,NAMVEC 

CALL  XNAME(NAMVEC,  100) 

NAMVEC=NAME (P2 ) // '     ' //YUNITS (YQUAL , YU) 

PRINT*,  'NAMVEC=' ,NAMVEC 
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C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 


c 
c 
c 
c 
c 

C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 


CALL  SCLDAT(DATA(1,IP2),  NPTS ,  EXPONY,  YMIN,  YMAX) 

CALL  EXPONE(NAMVEC,  EXPONY) 

PRINT*,  'YNAME=' ,NAMVEC 

CALL  YNAME(NAMVEC,  100) 

PRINT  * ,     ' XTYPE= ' , XTYPE , '     YTYPE= ' , YTYPE 


Dispatch  to  the  correct  routine. 


IF  ((XTYPE  .EQ.  1 

IF  ((XTYPE  .EQ.  1 

IF  ((XTYPE  .EQ.  2' 

IF  ((XTYPE  .EQ.  2. 

Draw  the  curve 


,AND.  (YTYPE  .EQ.  1 

,AND.  (YTYPE  .EQ.  2' 

.AND.  (YTYPE  .EQ.  l' 

.AND.  (YTYPE  .EQ.  2\ 


CALL  LINLIN 
CALL  LINLOG 
CALL  LOGLIN 
CALL  LGLG 


CALL  CURVE (DATA(1,IP1),  DATA(1,IP2),  NPTS,  0) 

CALL  RSCDAT(DATA(l,IPl),  NPTS,  EXPONX,  XMIN,  XMAX) 

CALL  RSCDAT(DATA(1,IP2),  NPTS,  EXPONY,  YMIN,  YMAX) 

CALL  ENDPL(O) 

RETURN 

END 


*********************** 

*   SUBROUTINE  READIN   * 
*********************** 

This  subroutine  reads  in  the  data. 

SUBROUTINE  READIN 

REALM  DATA  (1000, 3) 

INTEGER*4  NPTS 

INTEGER*4  PI 

INTEGER'^4  P2 

CHARACTER*!  LABEL1(80' 

CHARACTER*!  LABEL2(80' 

CHARACTER*!  LABEL3(80 

CHARACTER*!  LABEL4(80' 

INTEGER*4  XTYPE 

INTEGER*4  YTYPE 

INTEGER*4  XQUAL 

INTEGER*4  YQUAL 

COMMON  /DPARMS/  DATA,  NPTS,  PI,  P2,  LABEL!,  LABEL2 ,  LABELS, 
I  LABEL4,  XTYPE,  YTYPE,  XQUAL,  YQUAL 

Read  the  data 


DO  1010  1=1,  NPTS 

READ(1,9010,END=80!0)  (DATA(I,J),  J  =  1,  3) 
1010  CONTINUE 
RETURN 


C+++ 
C+++ 
C+++ 
8010 
9010 


Abends 

CALL  ABEOFC READIN' ,  1) 
FORMAT (5X,3F1 0.3) 
END 


C 

C 

C 

C 

C 

C+++ 

C+++ 

C+++ 


*********************** 

*   SUBROUTINE  RSCDAT   * 
*********************** 

This  subroutine  re-scales  the  data 

SUBROUTINE  RSCDAT(DATA,  NPTS,  EXPON,  MIN,  MAX) 
REAL*4       DATA (NPTS) 
INTEGER*4    NPTS 
INTEGER*4    EXPON 
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C+++ 

C+++  Generate  scale  factor  and  compute  the  data 

C+++ 

SF  =  10**EXPON 

DO  1010  1=1,  NPTS 

DATA(I)  =  DATA(I)  *  SF 
1010  CONTINUE 

MIN  =  MIN  *  SF 

MAX  =  MAX  *  SF 

RETURN 

END 


*     SUBROUTINE  SCLDAT  * 


C 
C 
C 
C 
C+++ 

C+++  This  subroutine  scales  the  data  (if  necessary) 
C+++ 

SUBROUTINE  SCLDAT (DATA,  NPTS,  EXPON,  MIN,  MAX) 
REAL*4       DATA (NPTS) 
INTEGER*4    NPTS 
INTEGER*4    EXPON 
REAL*4       MIN 
REAL*4       MAX 
C+++ 

C+++  Get  order  of  magnitude  of  minimum  and  maximum 
C+++ 

IF  (MIN  .NE.  0)  THEN 

lOMMIN  =  LOG10(ABS(MIN)) 
ELSE 

lOMMIN  =0 
END  IF 
IF  (MAX  .NE.  0)  THEN 

lOMMAX  =  LOG10(ABS(MAX)) 
ELSE 

lOMMAX  =  0 
END  IF 
C+++ 

C+++  If  the  order  of  magnitude  is  within  10**(+/-3),  then  just  set 
C+++  exponent  to  0  and  don't  scale 
C+++ 

IF  (((lOMMIN  .GE.  -3)  .AND.  (lOMMIN  .LE.  3))  .AND. 
I     ((lOMMAX  .GE.  -3)  .AND.  (lOMMAX  .LE.  3)))  THEN 
EXPON  =  0 
ELSE 
C+++ 

C+++  Compute  a  suitable  scaling  factor 
C+++ 

IF  (ABS(IOMMAX)  .GT.  3)  THEN 

lOMMAX  =  (lOMMAX  /  3)  *  3 
SF  =  10.*^IOMMAX 
EXPON  =  lOMMAX 
END  IF 
IF  (ABS(IOMMIN)  .GT.  3)  THEN 

lOMMIN  =  (lOMMIN  /  3)  *  3 
SF  =  lO.^^IOMMIN 
EXPON  =  lOMMIN 
END  IF 
DO  1010  1=1,  NPTS 

DATA(I)  =  DATA(I)  /  SF 
1010     CONTINUE 

MIN  =  MIN  /  SF 
MAX  =  MAX  /  SF 
ENDIF 
RETURN 
END 

C ■ 

cm 
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Q  *********************** 

C  *      SUBROUTINE   TIMSIO      * 

Q  *********************** 

C++  + 

C+++  This  subroutine  puts  the  '*io**'  string  in 
C+++ 

SUBROUTINE  TIMSIO (INVEC,  I) 

CHARACTER*!!  INVEC 

INTEGER*4     I 

INVEC  =  'X  !0|EH.75)' 

1=1+!! 

RETURN 

END 


*********************** 

*   SUBROUTINE  XTRACT   * 
*********************** 


C 
C 

c 
c 

C+++ 

C+++  This  subroutine  scans  for  a  token,  checks  it  against  the  token 

C+++  table  (word)  and  returns  the  index  of  the  token  in  the  table 

C+++ 

SUBROUTINE  XTRACT (LINE,  I,  WORD,  NWORDS ,  INDEX) 
CHARACTER*!   LINE (80) 
CHARACTER'S   WORD (NWORDS) 


CHARACTER'S   TOKEN 
C+++ 

C+++  Get  the  token 
C+++ 

DO  !0  J=!, NWORDS 

PRINT  ',  WORD (J) 
!0  CONTINUE 

lERR  =  I 

CALL  GETTOK(LINE,  I,  TOKEN) 
C+++ 

C+++  Scan  the  table  for  the  token.  If  it  is  not  there,  write  an  error 
C+++  message  and  terminate. 
C+++ 

DO  !0!0  INDEX  =  !,  NWORDS 

IF  (WORD (INDEX)  .EQ.  TOKEN)  RETURN 
1010  CONTINUE 
C+++ 

C+++  Error  message 
C+++ 

CALL  ERRMSG(IERR,  'Unidentifiable  command  or  token.$') 

CALL  DISEND 

STOP  300 

END 
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3.        GEOMETRIES  PLOTTING  CODE  (GTDGEOMP) 
a.  Flow  Chart 


Start 


Matn  Program 


OK,V9% 


»tt  uo  CO— on 
Oloocs 


NCX  :  MX.  No.  of  cylfndw* 
tPX  :  MX.  Mo.  of  p1aU« 
N5AX  t  MX.  No.  of  MUX*  trrty* 
NSX  :  MX.  Mo.  of  ootrcv* 


1CC*IC&»1 


TITLE-CAKL 


si-SR.  Jprgpi 


•na  o 


f^^ 


iHZ 


LGP-.TRVJ£. 


crwcK 
ic&>Ma  7 


no 


^R.  CTLCAP 


rmtM  tn 

cyHnOT  diU  4 

ccMQut—  and 

aw*  ]«t 


yw 


Stop 


''■^ouPTxy    tn 


'rMO*  tn  data 


© 
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Flow  Chart  For  GTDGEOMP  (continue) 
Mafn  Program 


^tjaa-  >«fi 


f?f 


r9««t«  • 


LCP-.FAtSC. 


rvvvtc  all 


r99ci%  all  aat« 


IPC-IPC*! 
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no 
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•PT*  c«rd 

Oita 


Ii*-ISA*1 


StjgR.   ROTATE 


tor»s  «Ke» 
■♦<  iranaforaatlor 
iirtx 


ISC-ISG«1 


re«ca  in  wxrca 
array  data  4 

Oel.  comari  of 
■  n   alepama 


*iUflB^  SORga 


reaca^n  aoLrc* 

oata  «  art. 
corner  lootton* 


iaf'.wj? 


stop 


© 
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Flow  Chart  For  GTDGEOMP  (contfnue) 
Mafn  Program 


i«  ftCtOP 


r««oa  tn 

\rtn  for 
trt« 


r—Oa  fn 

vjitt  for 

•otrc* 

diMnvfons 


,^uiR.  PI, al- 
lots tna  3-0 

jiu— try 


© 
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now  Chart  For  GTDGEOMP  (continue) 
Subroutine  PLOT 


ISO0.7  ^ 

no 
> ► 

a'«P.    PLOT^.C 

oiois  •o«jrc«« 

^x^y^ 

' 
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b.  Program  Listing 

C+++  ****************************** 

C+++  *         GTDGEOMP  * 

C+++  *  * 

C+++  *   WRITTEN  BY  KOH  WEE  JIN    * 

C+++  *       ON  9  SEP  1986        * 

C+++  *  AT  NFS  * 

C+++  ****************************** 

C+++  THIS  PROGRAM  READS  IN  THE  DATA  FROM  GTD  INPUT  CARDS 

C+++  IT  THEN  PLOTS  THE  FOLLOWING  GEOMETRIES 

C+++     CYLINDER(S) 

C+++      INFINITE  GROUND  PLANE 

C+++     PLATE (S) 

C+++     SOURCE (S) 

C+++     SOURCE  ARRAY(S) 

C+++  THE  PLOTS  INCLUDES  THE  EFFECTS  DUE  TO 

C+++     AXES  ROTATION 

C+++     ORIGIN  TRANSLATION 

C+++     SCALING 

C+++ 

C+++ 

C+++  MAXIMUM  NUMBER  OF  PLATES  =  NPX 

C+++  MAXIMUM  NUMBER  OF  EDGES  PER  PLATES  =  NEX 

C+++  MAXIMUM  NUMBER  OF  CYLINDERS  =  NCX 

C+++  MAXIMUM  NUMBER  OF  POINTS  FOR  CYLINDER  END  CAPS  =  NCECP 

C+++  MAXIMUM  NUMBER  OF  SINGLE  SOURCES  =  NSX 

C+++  MAXIMUM  NUMBER  OF  SOURCE  ARRAYS  =  NSAX 

C+++  MAXIMUM  NUMBER  OF  ELEMENTS  PER  SOURCE  ARRAY    =  NESAX 

C+++ 

PARAMETER  (NPX=50) 

PARAMETER  (NEX=12) 

PARAMETER  (NCX=100) 

PARAMETER  (NCECP=201) 

PARAMETER  (NSX=1000) 

PARAMETER  (NSAX=5) 

PARAMETER  (NESAX=500) 
C+++ 

C+++  DECLARE  VARIABLES 
C+++ 

C+++     PLATE 

C+++  CORNER  LOCATIONS  :  XPC,YPC,ZPC 

C+++  NO.  OF  PLATES  :  IPG 

C+++  NO.  OF  CORNERS  PER  PLATE  :  MEP 

C+++     CYLINDER 

C+++  CENTER  :  XCCYL ,YCCYL ,ZCCYL 

C+++  END  CAP  CENTERS  :  ZCN,ZCP 

C+++  END  CAP  LOCI  :  XCYLP , YCYLP,ZCYLP,XCYLN, YCYLN,ZCYLN 

C+++  END  CAP  CUT  ANGLES  :  THTN,THTP 

C+++  AXES  ROTATION  MATRIX  :  RCYL 

C+++  AXES  LENGTH  FROM  CENTER  :  AC,BC 

C+++  NO.  OF  CYLINDER  :  ICG 

C+++     SINGLE  SOURCE 

C+++  CORNER  LOACTIONS  :  XSC,YSC,ZSC 

C+++  NO.  OF  SOURCES  :  ISG 

C+++     SOURCE  ARRAY 

C+++  CORNER  LOACTIONS  :  XSAC, YSAC ,ZSAC 

C+++  NO.  OF  SOURCES  :  ISA 

C+++  NO.  OF  ELEMENTS  PER  SOURCE  ARRAY  :  MSAX 

C+++  TOTAL  NO.  OF  ELEMENTS  :  MSAXT 

C+++      INFINITE  GROUND  PLANE 

C+++  WITH  GROUND  PLANE  :  LGP  =  .TRUE. 

C+++  WITHOUT  GROUND  PLANE  :  LGP  =  .FALSE. 

C+++     MIN.  &  MAX.  X,  Y  &  Z  VALUES  COMPARISON 
C+++  CYLINDER  :  COMPCG 

C+++  PLATE  :  COMPPG 

C+++  SOURCE  :  COMPSG 

C+++  SOURCE  ARRAY  :  COMPSA 
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C+++     OBSERVATION  POINT  IN  GLOBAL  PLANE 

C+++  ANGLE  FROM  X-AXIS  :  PHI 

C+++  ANGLE  FROM  Z-AXIS  :  THETA 

C+++  RADIUS  FROM  ORIGIN  :  RADIUS 

C+++     GLOBAL  AXES  ROTATION  MATRIX  :  ROT 

C+++     GLOBAL  AXES  ORIGIN  TRANSLATION  :  XCR,YCR,ZCR 

C+++     FREQUENCY  IN  GHZ  :  FREQ 

C+++     SCALING  FACTOR  :  SCALEF 

C+++      INTEGER  DEFINED  BY  UN  CARD  :  lUN 

C+++      INTEGER  DEFINED  BY  US  CARD  :  lUS 

C+++ 

REAL  COMPPG(3,2),COMPCG(3,2),COMPSG(3,2),COMPSA(3,2) 

REAL  ROT(3,3),ROBS(3,3) 

REAL  XPC(NPX,NEX) , YPC(NPX,NEX) ,ZPC(NPX,NEX) 

REAL  XCYLP (NCX , NCECP ) , YCYLP (NCX , NCECP ) , ZCYLP (NCX , NCECP ) 

REAL  XCYLN(NCX, NCECP) ,YCYLN (NCX, NCECP) ,ZCYLN (NCX, NCECP) 

REAL  XCCAPP(NCX) ,YCCAPP(NCX) ,ZCCAPP(NCX) 

REAL  XCCAPN(NCX) ,YCCAPN(NCX) ,ZCCAPN(NCX) 

REAL  XSC(NSX,4) ,YSC(NSX,4) ,ZSC(NSX,4) 

REAL  XSAC(NSAX,NESAX,4),YSAC(NSAX,NESAX,4),ZSAC(NSAX,NESAX,4) 

INTEGER  MEP(NPX),MSAX(NSAX) 

CHARACTER*60  TITLE, LABEL 

CHARACTER*2   C2 

LOGICAL  LGP,LGEOM 

SET  UP  COMMON  BLOCKS 


C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 

C+++ 
C+++ 
C+++ 


COMMON  /CGDATA/ 

COMMON  /OBDATA/ 
COMMON  /OSDATA/ 
COMMON  /PCDATA/ 
COMMON  /PIDATA/ 
COMMON  /RTDATA/ 
COMMON  /SADATA/ 
COMMON  /SCALER/ 
COMMON  /SGDATA/ 
COMMON  /VUDATA/ 
TITLE='$' 
LGP=. FALSE. 
LGEOM=. FALSE. 
IST=0 


INITIALIZE  DISSPLA 

CALL  DISSIN 
READ  IN  KEY  LETTERS  AND  SELECT  THE  BRANCHES 


ICG , COMPCG , XCCAPP , YCCAPP , ZCCAPP , 

XCCAPN , YCCAPN , ZCCAPN 

XOBS, YOBS, ZOBS, ROBS 

POSMAX , TOSMAX , PHIOS , THETOS 

IPG,MEP,COMPPG 

PI,RTD 

XCR,YCR,ZCR,ROT 

ISA,MSAX,COMPSA,MSAXT 

FREQ, IUN,IUS, SCALEF 

ISG,COMPSG 

PHI, THETA, RADIUS 


10 


CONTINUE 
READ  (1, 
IF  (C2 
IF  (C2 
IF  (C2 
IF  (C2 
IF  (C2 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


C2 
C2 

;c2 

C2 
C2 
■C2 
02 
'C2 
IF  (C2 
IF  (C2 
IF  (C2 
IF  (C2 
IF  (C2 


'  (A2 

EQ. 

EQ. 

EQ. 

EQ. 

EQ. 

EQ. 

EQ. 

EQ. 

EQ. 

EQ. 

EQ. 

EQ. 

EQ. 

EQ. 

EQ. 

EQ. 

EQ. 

EQ. 


,1X, 
'CT' 
'CG' 
'EN' 
'FR' 
'GP' 
'NC 
'NG' 
'NP' 
'NS' 
'NX' 
'PG' 
•RT' 
'SA' 
'SG' 
'UF' 
'UN' 
'US' 
'XQ' 


A60)') 
'  GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 
GOTO 


C2, LABEL 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 


72 


[\>] 


[l>] 


GOTO   10 
C+++ 

C+++   CT  :  COMMENT  TITLE  CARD 
C+++ 

20  CONTINUE 

WRITE 

WRITE  (2,*)  'CT' 

TITLE=LABEL 

WRITE  (2,*)  '      TITLE  =', TITLE 

GOTO  10 
C+++ 

C+++   CG  :  CYLINDER  GEOMETRY  CARD 
C+++ 

30  CONTINUE 

WRITE 

WRITE  (2,*)  'CG' 

LGEOM=.TRUE. 

ICG=ICG+1 

WRITE  (2,*)  '      ICG  =MCG 

IF  (ICG  .GT.  NCX)  GOTO  35 

CALL  CYLCAP ( XCYLP , YCYLP , ZCYLP , XCYLN , YCYLN , ZCYLN) 

GOTO  10 
35  PRINT  *,  'NO.  OF  CYLINDERS  EXCEEDS  NCX' 

CALL  DONEPL 

STOP 
C+++ 

C+++   EN  :  END  CARD 
C+++ 

40  CONTINUE 

WRITE  (2,*) 

WRITE  (2,*)  'EN' 

CALL  DONEPL 

STOP 
C+++ 

C+++  FR  :  FREQUENCY  CARD 
C+++ 

50  CONTINUE 

WRITE  (2,*) 

WRITE  (2,*)  'FR' 

LGEOM=.TRUE. 

READ  (1,*)  FREQ 

WRITE  (2,^)  '      FREQ  =', FREQ 

GOTO  10 
C+++ 

C+++   GP  :  GROUND  PLANE  CARD 
C+++ 

60  CONTINUE 

WRITE  (2,*) 

WRITE  (2,'^)  'GP' 

LGEOM=.TRUE. 

LGP= . TRUE . 

WRITE  (2 ,*)  '      LGP  =' ,LGP 

READ  (1,*)  LSLAB 

IF  (LSLAB  .EQ.  0)  GOTO  10 

READ  (1,*)  DUMMY, DUMMY, DUMMY, DUMMY 

GOTO  10 
C+++ 

C+++  NC  :  NO  CYLINDER  CARD 
C+++ 

70  CONTINUE 

WRITE  (2,*) 

WRITE  (2,*)  'NC 

LGEOM=.TRUE. 

ICG=0 

CALL  NOCYL ( XCYLP , YCYLP , ZCYLP , XCYLN , YCYLN , ZCYLN ) 

GOTO  10 
C+++ 

C+++   NG  :  NO  GROUND  PLANE  CARD 
C+++ 
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\l>\ 


80  CONTINUE 

WRITE  (2,*) 

WRITE  (2,*)  'NG' 

LGEOM=.TRUE. 

LGP=. FALSE. 

GOTO  10 
C+++ 

C+++  NP  :  NO  PLATE  CARD 
C+++ 

90  CONTINUE 

WRITE 

WRITE  (2,*)  'NP 

LGEOM=.TRUE, 

IPG=0 

CALL  RESET1(1,NPX,NEX,XPC,YPC,ZPC,C0MPPG) 

CALL  RESET2(NPX,MEP,1, DUMMY, 1, DUMMY) 

GOTO  10 
C+++ 

C+++  NS  :  NO  SOURCE  CARD 
C+++ 

100  CONTINUE 

WRITE  (2,*) 

WRITE  (2,'^)  'NS' 
•  LGEOM=.TRUE. 

ISA=0 

ISG=0 

CALL  RESET1(1,NSX,4,XSC,YSC,ZSC,C0MPSG) 

CALL  RESETl (NSAX , NESAX , 4 , XSAC , YSAC , ZSAC , COMPSA) 

CALL  RESET2 (NSAX, MSAX,1, DUMMY, 1, DUMMY) 

GOTO  10 
C+++ 

C+++  NX  :  NEXT  SET  OF  NEW  DATA  CARD 
C+++ 

110  CONTINUE 

WRITE 

WRITE  (2,*)  'NX' 

LGEOM=. FALSE. 

CALL  NXT ( XPC , YPC , ZPC , XCYLP , YCYLP , ZCYLP , XCYLN , YCYLN , ZCYLN , 
*XSC , YSC , ZSC , XSAC , YSAC , ZSAC , LGP , TITLE ) 

GOTO  10 
C+++ 

C+++   PG  :. PLATE  CARD 
C+++ 


\\>] 


120  CONTINUE 
WRITE 

WRITE  (2,'^)  'PG' 
LGEOM=.TRUE, 
IPG=IPG+1 
WRITE  (2,*)  '      IPG  =' ,IPG 


m 


IF  (IPG  .GT.  NPX)  GOTO  125 

CALL  PLATEG(XPC,YPC,ZPC) 

GOTO  10 
125  PRINT  *,  'NO.  OF  PLATES  EXCEEDS  NPX' 

CALL  DONEPL 

STOP 
C+++ 

C+++   RT  :  ROTATE  TRANSLATE  AXES  CARD 
C+++ 

130  CONTINUE 

WRITE  (2,*) 

WRITE  (2,*)  'RT' 

LGEOM= . TRUE . 

READ(1,*)  XCR,YCR,ZCR 

READ ( 1 , * )  THZP , PHZP , THXP , PHXP 

CALL  ROTATE ( THZP , PHZP , THXP , PHXP , ROT ) 

GOTO  10 
C+++ 

C+++   SA  :  SOURCE  ARRAY  CARD 
C+++ 
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140  CONTINUE 
WRITE 

WRITE  (2,*)  'SA' 
LGEOM= . TRUE 
ISA=ISA+1 
WRITE  (2,*)  '      ISA  =' ,ISA 


\l>] 


[l>\ 


IF  (ISA  .GT.  NSAX)  GOTO  145 

IST=ISA+ISG+MSAXT 

IF  (1ST  .GT.  NSX)  GOTO  147 

CALL  SORCEA(XSAC,YSAC,ZSAC) 

GOTO  10 
145  CONTINUE 

PRINT  *,  'THE  TOTAL  NO.  OF  SOURCE  ARRAYS  =  MSA 

PRINT  *,  'NO.  OF  SOURCE  ARRAYS  EXCEEDS  NSAX' 

CALL  DONEPL 

STOP 
147  CONTINUE 

PRINT  *,  'THE  TOTAL  NO.  OF  SOURCES  =  ',IST 

PRINT  *,  'NO.  OF  SOURCES  EXCEEDS  NSX' 

CALL  DONEPL 

STOP 
C+++ 

C+++   SG  :  SINGLE  SOURCE  CARD 
C+++ 

150  CONTINUE 

WRITE 

WRITE  (2,*)  'SG' 

LGEOM=.TRUE 

ISG=ISG+1 

WRITE  (2,*)  •      ISG  =' ,ISG 

IST=ISA+ISG+MSAXT 

IF  (1ST  .GT.  NSX)  GOTO  155 

CALL  SORCEG(XSC,YSC,ZSC) 

GOTO  10 
155  CONTINUE 

PRINT  -^ ,     'THE  TOTAL  NO.  OF  SOURCES  =  ',IST 

PRINT  *,  'NO.  OF  SOURCES  EXCEEDS  NSX' 

CALL  DONEPL 

STOP 
C+++ 

C+++  UF  :  GEOMETRY  SCALE  FACTOR  CARD 
C+++ 

160  CONTINUE 

WRITE  (2,*) 

WRITE  (2,*)  'UF' 

LGEOM=.TRUE. 

READ(1,*)  SCALEF 

WRITE  (2,*)  '      SCALEF  =' ,SCALEF 

GOTO  10 
C+++ 

C+++  UN  :  PLATES  AND  CYCLINDERS  GEOMETRY  SCALING  CARD 
C+++ 

170  CONTINUE 

WRITE  (2,*) 

WRITE  (2,*)  'UN' 

LGEOM=.TRUE. 

READd,*)  lUN 

WRITE  (2,''^)  '      lUN  ='  ,IUN 

GOTO  10 
C+++ 

C+++   US  :  SOURCES  GEOMETRY  SCALING  CARD 
C+++ 

180  CONTINUE 

WRITE  (2,*) 

WRITE  (2,*)  'US' 

LGEOM=.TRUE. 

READ(1,*)  lUS 

WRITE  (2,^^)  '      lUS  ='  ,IUS 

GOTO  10 
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C+++ 

C+++   XQ  :  EXECUTION  CARD 

C+++ 

190  CONTINUE 

WRITE  (2,*) 

WRITE  (2,*)  'XQ' 

IF  (.NOT.  LGEOM)  GOTO  10 

CALL  PLOT (XPC , YPC , ZPC , XCYLP , YCYLP , ZCYLP , XCYLN , YCYLN , ZCYLN , 
*XSC , YSC , ZSC , XSAC , YSAC , ZSAC , LGP , TITLE ) 

LGEOM=. FALSE. 

GOTO  10 

END 

C - 

C 

C***   SUBROUTINE  BLANKC 

Q-k-k-k 
C+++ 

C+++  THIS  SUBROUTINE  DETERMINES  THE  PORTION  OF  ELLIPSE  OF  THE 

C+++   CYLINDER  TO  BE  BLANKED  OFF 

C+++ 

SUBROUTINE  BLANKC ( ICYL , XCYL , YCYL , ZCYL , ICBDY , PN$ , LBLNKl , LBLNK2 ) 

PARAMETER  (NCX=100) 

PARAMETER  (NCECP=201) 

REAL  ROBS(3,3),COMPCG(3,2) 

REAL  XCYL(NCX,NCECP) , YCYL(NCX,NCECP) ,ZCYL(NCX,NCECP) 

REAL  X(NCECP),Y(NCECP) ,Z(NCECP) 

REAL  XCCAPP(NCX) ,YCCAPP(NCX) ,ZCCAPP(NCX) 

REAL  XCCAPN(NCX) ,YCCAPN(NCX) ,ZCCAPN(NCX) 

CHARACTER  PN$ 

LOGICAL  LBLNKl, LBLNK2 

COMMON  /CGDATA/  ICG,COMPCG,XCCAPP ,YCCAPP,ZCCAPP, 
*  XCCAPN,YCCAPN,-ZCCAPN 

COMMON  /OBDATA/  XOBS , YOBS ,ZOBS, ROBS 

LBLNK1=.TRUE. 

LBLNK2=.TRUE. 

WRITE  (2,*) 

WRITE  (2,*)  'SUBROUTINE  BLANKC 

IF  (PN$  .EQ.  'P')  WRITE  (2,*)  '      POSITIVE  END  CAP' 

IF  (PN$  .EQ.  'N')  WRITE  (2,*)  '     NEGATIVE  END  CAP' 

DO  10  I=1,NCECP 

X(I)=XCYL(ICYL,I) 

Y(l)=YCYL(ICYL,I) 

Z(I)=ZCYL(ICYL,I) 
10  CONTINUE 
C+++ 

C+++  TRANSFER  THE  LOCUS  OF  THE  END  CAP  TO  OBSERVATION  CO-ORDINATE 
C+++ 

CALL  ROTRAN (NCECP , X , Y , Z , XOBS , YOBS , ZOBS , ROBS ) 
C+++ 

C+++   TRANSFER  THE  CENTER  POINTS  OF  THE  TWO  END  CAPS  TO  OBSERVATION 
C+++   CO-ORDINATE 
C+++ 

xcp=xccapp(icyl; 

ycp=yccapp(icyl 

zcp=zccapp(icyl 

xcn=xccapn(icyl 

ycn=yccapn(icyl 

zcn=zccapn(icyl, 

call  rotran ( 1 , xcp , ycp , zcp , xobs , yobs , zobs , robs ) 

call  rotran ( 1 , xcn , ycn , zcn , xobs , yobs , zobs , robs ) 

C+++ 

C+++   CONSIDER  ONLY  THE  X-Y  PLANE 

C+++   DETERMINE  THE  INTERCEPTION  POINTS  BETWEEN  THE  ELLIPSE  AND 

C+++   THE  CENTER  LINE  FORMED  BY  JOINING  THE  CENTERS  OF  THE  TWO 

C+++   END  CAPS 

C+++ 

NHALF=(NCECP-l)/2 

ISL0PE=1 
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IF  (ABS(XCP-XCN)  .LT.  0.00001)  GOTO  15 

SLOPE= ( YCP-YCN) / (XCP-XCN) 

DO  20  I=ICBDY,ICBDY+NHALF 

11=1 

IF  (II  .GE.  NCECP)  I1=I1-NCECP+1 

12=11+1 

YI1=YCP+SL0PE*(X(I1)-XCP) 

YI2=YCP+SL0PE'*^  (X(  12 )  -XCP ) 


\l\ll] 


.GE.  YIl  .AND.  Y(I2)  .LE.  YI2)  GOTO  30 

)  .GE.  YI2)  GOTO  30 


.LE.  YIl  .AND.  Y(I2; 


IF 

IF 
20  CONTINUE 

GOTO  80 
15  CONTINUE 

ISLOPE=0 

DO  25  I=ICBDY,ICBDY+NHALF 

11=1 

IF  (II  .GE.  NCECP)  I1=I1-NCECP+1 

12=11+1 

.GE.  XCP  .AND. 
.LE.  XCP  .AND. 


m\] 


III] 


.LE.  XCP)  GOTO  30 
.GE.  XCP)  GOTO  30 


C+++ 
C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 
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IF 

IF 
25  CONTINUE 

GOTO  80 
30  CONTINUE 

IBLNK1=I1 

IBLNK2=I1+NHALF 

IF  (IBLNK2  .GT.  NCECP)  IBLNK2=IBLNK2-NCECP 

DETERMINE  THE  DISTANCES  FROM  THE  INTERCEPTION  POINTS  TO  THE  CENTER 
POINT  OF  THE  OPPOSITE  END  CAP 

XC=XCP 

YC=YCP 

ZC=ZCP  * 

IF  (PN$  .EQ.  'N')  GOTO  40 

XC=XCN 

YC=YCN 

ZC=ZCN 
40  CONTINUE 

D1=SQRT((X(IBLNK1)-XC)*(X(IBLNK1)-XC)+ 
*(Y(IBLNK1)-YC)*(Y(IBLNK1)-YC)) 

D2=SQRT((X(IBLNK2)-XC)*(X(IBLNK2)-XC)+ 
*(Y(IBLNK2)-YC)'^(Y(IBLNK2)-YC)) 

COMPARE  THE  TWO  DISTANCES  AND  INCULDING  IN  THE  DEPTH  (Z  CO-ORD) 
TO  DETERMINE  IF  THE  PORTION  IS  BEING  BLOCKED  OR  NOT 

IF  (Dl  .EQ.  D2)  GOTO  50 

IF  (ISLOPE  .EQ.  0)  GOTO  55 

IF  (Dl  .GT.  D2)  GOTO  60 

ZCI=ZCN+(ZCP-ZCN)*(X(IBLNK1)-XCN)/ (XCP-XCN) 

IF  (ABS(Z(IBLNK1))  .GT.  ABS(ZCI))  LBLNK1=. FALSE. 

GOTO  50 
60  CONTINUE 

ZCI=ZCN+(ZCP-ZCN)*(X(IBLNK2)-XCN)/ (XCP-XCN) 

IF  (ABS(Z(IBLNK2))  .GT.  ABS(ZCI))  LBLNK2= . FALSE . 

GOTO  50 
55  CONTINUE 

IF  (Dl  .GT.  D2)  GOTO  70 

ZCI=ZCN+(ZCP-ZCN)*(Y(IBLNK1)-YCN)/ (YCP-YCN) 

IF  (ABS(Z(IBLNK1))  .GT.  ABS(ZCI))  LBLNK1=. FALSE. 

GOTO  50 
70  CONTINUE 

ZCI=ZCN+(ZCP-ZCN)*(Y(IBLNK2)-YCN)/ (YCP-YCN) 

IF  (ABS(Z(IBLNK2))  .GT.  ABS(ZCI))  LBLNK2=. FALSE . 
50  CONTINUE 

WRITE  (2,*)  'SUBROUTINE  BLANKC  END' 

RETURN 
80  PRINT  *,  'THE  INTERCEPTION  POINT  WAS  NOT  FOUND  ' 

PRINT  *,  'PROBABLY  THE  ALGORITHM  IS  NOT  GOOD  ENOUGH' 
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c 

C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 


PRINT  *,  'TRY  OTHER  METHOD' 

CALL  DONEPL 

STOP 

END 


C+++ 
C+++ 
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C 

Q-k-k-k 
Q-k-kk 
Qkkk 

C+++ 
C+++ 

C+++ 
C+++ 


BLOCK  DATA 

BLOCK  DATA 
SET  UP  PARAMETERS 


PARAMETER 
PARAMETER 
PARAMETER 
PARAMETER 


;npx=5o) 

NCX=100) 
NSX=1000) 

;nsax=5) 


DECLARE  VARIABLES  AND  ARRAYS 

REAL  COMPPG(3,2),COMPCG(3,2),COMPSG(3,2),COMPSA(3,2) 

REAL  ROT(3,3),ROBS(3,3) 

REAL  XCCAPP(NCX) ,YCCAPP(NCX) ,ZCCAPP(NCX) 

REAL  XCCAPN(NCX) ,YCCAPN(NCX) ,ZCCAPN(NCX) 

INTEGER  MEP(NPX),MSAX(NSAX) 

SET  UP  COMMON  BLOCKS 

COMMON  /CGDATA/  ICG,COMPCG,XCCAPP ,YCCAPP,ZCCAPP, 

*  XCCAPN,YCCAPN,ZCCAPN 

COMMON  /OBDATA/  XOBS , YOBS ,ZOBS , ROBS 

COMMON  /OSDATA/  POSMAX,TOSMAX, PHIOS ,THETOS 

COMMON  /PCDATA/  IPG,MEP, COMPPG 

COMMON  /PIDATA/  PI,RTD 

COMMON  /RTDATA/  XCR,YCR,ZCR,ROT 

COMMON  /SADATA/  ISA,MSAX, COMPSA,MSAXT 

COMMON  /SCALER/  FREQ , lUN, lUS ,SCALEF- 

COMMON  /SGDATA/  ISG,COMPSG 

COMMON  /VUDATA/  PHI ,THETA, RADIUS 

INITIALIZE  DATA  SETS 

DATA  COMPCG  /3*10. OEIO , 3*-10. OEIO/ 

DATA  COMPPG  /3*10 .OEIO ,3*-10.0E10/ 

DATA  COMPSA  /3*10.0E10,3*-10 .OEIO/ 

DATA  COMPSG  /3*10 . OEIO , 3*-10. OEIO/ 

DATA  XCR,YCR,ZCR  /3*0.0/ 

DATA  ROT  /1. 0,3*0. 0,1. 0,3*0. 0,1.0/ 

DATA  FREQ,IUN,IUS,SCALEF  /O  ,  2997925 , 1 , 0 , 1 . 0/ 

DATA  PHI, THETA, RADIUS  /30. 0 , 60 . 0 , 1 . 0/ 

DATA  ICG,IPG,ISA,ISG,MSAXT  /5*0/ 

DATA  PI,RTD  /3 . 14159 , 57 . 29578/ 

DATA  P0SMAX,T0SMAX/4. 0,9.0/ 

END 


SUBROUTINE  COMP 


THIS  SUBROUTINE  COMPARES  THE  OVERALL  MIN.  &  MAX.  X,  Y  &  Z  VALUES 
IT  ALSO  COMPUTES  THE  PLOTTING  SIZE  NEEDED  BY  DISSPLA 

SUBROUTINE  COMP(C, CI , C2 , C3 , C4 ,L) 

REAL  C(3,2),C1(3,2),C2(3,2),C3(3,2),C4(3,2),L(3) 

WRITE  (2,*) 

WRITE  (2,*)  'SUBROUTINE  COMP' 

DO  10  1=1,3 

IF  (C(I,1)  .GT.  C1(I,1))  C(I 

IF  (C(I,l)  .GT.  C2(I,1))  C(I 

IF  (C(I,1)  .GT.  C3(I,1))  C(I 


78 


10 


IF  (C(I,1)  .GT.  C4(I,1))  C(I,1)=C4(I,1) 
CONTINUE 


DO  20 
IF  (C( 
IF  (C( 
IF  (C( 
IF  (C( 


1=1 

1.2, 
1.2, 


.LT. 
.LT. 
.LT. 
.LT. 


CI 
C2 
C3 
C4 


,1.2 
,1.2, 
,1.2, 
,1,2, 


20 


L(I)=C(I,2)-C(I,1) 

IF  (L(I)  .LT.  0.01)  THEN 

CENTER=(C(I,2)+C(I,l))/2.0 

C(I,2)=CENTER+0.005 

C(l,l)=CENTER-0.005 

L(I)=0.01 
END  IF 
CONTINUE 

WRITE  (2,*)  'SUBROUTINE  COMP  END' 
RETURN 
END 


I,2)=C1(I,2' 
I,2)=C2(I,2' 
I,2)=C3(I,2 
I,2)=C4(I,2" 


C 

C+++ 
C+++ 
C+++ 
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SUBROUTINE  COMPAR 


THIS  SUBROUTINE  COMPARES  THE  MIN.  &  MAX.  X,  Y  &  Z  VALUES 

SUBROUTINE  COMPAR(N, C,X,Y,Z) 
REAL  C(3,2),X(N),Y(N),Z(N) 
DO  10  1=1, N 

1,1)  .GT. 

.LT. 

.GT. 

.LT. 

.GT. 

.LT. 


IF 
IF 
IF 
IF 
IF 
IF 


1.2, 

2.1, 
2.2 

3.1, 
3,2 


X( 

X< 
Y< 
Y( 
Zl 
Z( 


CONTINUE 
RETURN 
END 


1.1, 

1.2, 

2.1, 
2.2, 

3.1, 
3,2 


C 

Qk-k-k 

C+++ 
C+++ 
C+++ 
C+++ 


C+++ 
C+++ 

C+++ 
C+++ 


SUBROUTINE  CYLBDY 


THIS  SUBROUTINE  COMPUTES  THE  POSITION  OF  THE  POINT  ICBDY 
NEEDED  TO  DRAW  THE  TWO  LINES  JOINING  THE  ELLIPSES 

SUBROUTINE  CYLBDY ( I CYL , XCYLP , YCYLP , ZCYLP , ICBDY) 
PARAMETER  (NCX=100) 
PARAMETER  (NCECP=201) 

REAL  XCYLP (NCX , NCECP ) , YCYLP (NCX , NCECP ) , ZCYLP (NCX , NCECP ) 
REAL  ROBS(3,3),COMPCG(3,2) 
REAL  XCCAPP(NCX),YCCAPP(NCX),ZCCAPP(NCX) 
REAL  XCCAPN(NCX) ,YCCAPN(NCX) ,ZCCAPN(NCX) 
REAL  X(NCECP),Y(NCECP),Z(NCECP) 
INTEGER  ICBDY(NCX) 

COMMON  /CGDATA/  ICG,COMPCG,XCCAPP ,YCCAPP ,ZCCAPP, 
*  XCCAPN,YCCAPN,ZCCAPN 

COMMON  /OBDATA/  XOBS , YOBS ,ZOBS , ROBS 
COMMON  /PIDATA/  PI,RTD 
COMMON  /VUDATA/  PHI ,THETA,RADIUS 
WRITE  (2,*) 

WRITE  (2,*)  'SUBROUTINE  CYLBDY' 
WRITE  (2,*)  '      ICYL  =' ,ICYL 

TRANSFER  THE  LOCUS  OF  THE  POSITIVE  END  CAP  TO 
OBSERVATION  CO-ORDINATE 


DO  10  1=1, NCECP 

X(I)=XCYLP(ICYL,I 

Y(I)=YCYLP(ICYL 


:l] 
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Z(I)=ZCYLP(ICYL,I) 
10  CONTINUE 

CALL  ROTRAN(NCECP,X,Y,Z,XOBS, YOBS, ZOBS, ROBS) 
C+++ 

C+++   TRANSFER  THE  CENTERS  OF  THE  TWO  END  CAPS  TO 
C+++  OBSERVATION  CO-ORDINATE 
C+++ 

xcp=xccapp(icyl; 
ycp=yccapp(icyl 
zcp=zccapp(icyl 
xcn=xccapn(icyl 

YCN=YCCAPN(ICYL 

zcn=zccapn(icyl; 

call  rotran ( 1 , xcp , ycp , zcp , xobs , yobs , zobs , robs ) 

call  rotran ( 1 , xcn , ycn , zcn , xobs , yobs , zobs , robs ) 

C+++ 

C+++  THE  PLANE  FORM  BY  X(OBS)-AXIS  AND  Y(OBS)-AXIS  IS  THE  PLANE 

C+++   THAT  WILL  BE  DISPLAYED  ON  THE  SCREEN. 

C+++  HENCE,  WE  CAN  REMOVE  THE  Z(OBS)  COMPONENTS  AND  WORK  ONLY  WITH 

C+++  X(OBS)  AND  Y(OBS)  COMPONENTS. 

C+++ 

C+++   THE  POINT  THAT  THE  LINES  (BODY  OF  THE  CYLINDER)  MEET  THE  ELLIPSES 

C+++   OF  THE  END  CAPS  WILL  HAVE  MAXIMUM  PERPENDICULAR  DISTANCE  H 

C+++   FROM  THE  LINE  JOINING  THE  CENTERS  OF  THE  TWO  END  CAPS. 

C+++ 

C+++   ONLY  ONE  POINT  (ICBDY)  NEED  TO  BE  COMPUTED  BECAUSE  THE  OTHER 

C+++  POINTS  ARE  SYMMETRICAL  TO  IT  AND  CAN  BE  COMPUTED  EASILY 

C+++ 

H1=0 

H2=0 

D=SQRT((XCP-XCN)*(XCP-XCN)+(YCP-YCN)*(YCP-YCN)) 

IF  (D  .LT.  0.00001)  GOTO  50 

DO  40  I=1,NCECP 

D1=SQRT((X(I)-XCP)*(X(I)-XCP)+(Y(I)-YCP)*(Y(I)-YCP))  , 

D2=SQRT((X(I)-XCN)*(X(I)-XCN)+(Y(I)-YCN)*(Y(I)-YCN)) 

IF  (Dl  .LT.  0.000001)  GOTO  20 

DUMMY=(Dl*Dl+D*D-D2*D2)/2.0/D/Dl 

IF  (ABS(DUMMY)  .GT.  1.0001)  GOTO  70 

IF  (ABS(DUMMY)  .GT.  1.0  .AND.  ABS(DUMMY)  .LE.  1.0001)  THEN 
DUMMY=S IGN ( 1 . 0 , DUMMY ) 

END  IF 

ALPHA=ACOS( DUMMY) 

H3=D1*SIN(ALPHA) 

IF  (I  .LE.  2)  GOTO  30 

IF  (H2  .GE.  HI  .AND.  H2  .GE.  H3)  GOTO  60 

GOTO  30 
20  CONTINUE 

H3=0. 000001 
30  CONTINUE 

H1=H2 

H2=H3 
40  CONTINUE 

GOTO  60 
50  CONTINUE 

ICBDY(ICYL)=1 
60  CONTINUE 

ICBDY(ICYL)=I-1 

WRITE  (2,'^)  'SUBROUTINE  CYLBDY  END' 

RETURN 
70  PRINT  *.  'ARGUMENT  FOR  ACR  COS  EXCEEDS  LIMIT  OF  +/-  1.0' 

WRITE  (2,*)  '     ARGUMENT  FOR  ACR  COS  EXCEEDS  +/"  1.0' 

WRITE  (2,*)  '  D   ='  ,D 

WRITE  (2,*)  '  Dl   =' ,D1 

WRITE  (2,*)  '  D2  =' ,D2 

WRITE  (2,*)  '  ARG=', DUMMY 

CALL  DONEPL 

STOP 

END 
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C+++ 
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C+++ 
C+++ 
C+++ 
C+++ 
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C+++ 
C+++ 
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SUBROUTINE  CYLCAP 


THIS  SUBROUTINE  COMPUTES  THE  POINTS  NEEDED  TO  DRAW  THE  ELLIPSES 
ANGLES  NEEDED  TO  DEFINE  THE  CYLINDER  CO-ORDINATE 


THETA  TO  ZT  AXIS 
PHI  TO  ZT  AXIS 
THETA  TO  XT  AXIS 
PHI  TO  XT  AXIS 


TCLZ 
PCLZ 
TCLX 
PCLX 


SUBROUT INE  CYLCAP ( XCYLP , YCYLP , ZCYLP , XCYLN , YCYLN , ZCYLN ) 
PARAMETER  (NCX=100) 
PARAMETER  (NCECP=201) 
REAL  C0MPCG(3,2),R0T(3,3),R(3,3) 

REAL  XCYLP (NCX,NCECP) , YCYLP (NCX,NCECP) , ZCYLP (NCX,NCECP) 
REAL  XCYLN (NCX,NCECP) , YCYLN (NCX,NCECP) , ZCYLN (NCX,NCECP) 
REAL  XCCAPP(NCX),YCCAPP(NCX),ZCCAPP(NCX) 
REAL  XCCAPN(NCX) ,YCCAPN(NCX) ,ZCCAPN(NCX) 
REAL  XP(NCECP),YP(NCECP),ZP(NCECP) 
REAL  XN(NCECP) ,YN(NCECP) ,ZN(NCECP) 
COMMON  /CGDATA/  ICG,COMPCG,XCCAPP,YCCAPP,ZCCAPP, 
*  XCCAPN,YCCAPN,ZCCAPN 

COMMON  /PIDATA/  PI,RTD 
COMMON  /RTDATA/  XCR, YCR,ZCR,ROT 
COMMON  /SCALER/  FREQ, lUN, lUS , SCALEF 
WRITE  (2,*) 

WRITE  (2,*)  'SUBROUTINE  CYLCAP' 
WRITE  (2 ,*)  '      ICG  =' ,ICG 
READ  (1,*)  XCCYL,YCCYL,ZCCYL 
READ  (1,*)  TCLZ, PCLZ, TCLX, PCLX 
READ  (1,*)  AC,BC 
READ  (1,*)  ZCN,THTN,ZCP,THTP 
WRITE  (2,*)  '      XCCYL  = ' , XCCYL 
WRITE  (2,*)  '      YCCYL  =',YCCYL 
WRITE  (2,*)  '      ZCCYL  =' ,ZCCYL 
WRITE  (2,*)  '      TCLZ  =',TCLZ,'  PCLZ  =',PCLZ 
WRITE  (2,*)  '      TCLX  =', TCLX, '  PCLX  =", PCLX 
WRITE  (2,*)  '      AC  =',AC,'  BC  =',BC 
WRITE  (2,*)  '      ZCN  =',ZCN,'  ZCP  =',ZCP 
WRITE  (2,*)  '      THTN  =',THTN,'  THTP  =',THTP 

COMPUTE  THE  LOCI  OF  THE  ELLIPSES  IN  CYLINDER  CO-ORDINATE 

NHALF=(NCECP+l)/2 

RTHP=THTP/RTD 

RTHN=THTN/RTD 

XSTEP=2 . O^AC/ (NHALF- 1 ) 

XSTART=-1 .O^AC-XSTEP 

DO  10  1=1, NHALF 

XP ( I ) =XSTART+REAL ( I ) *XSTEP 

YP ( I )=BC*SQRT ( 1 . 0- (XP ( I ) /AC)**2 ) 

IF  (THTP  .EQ.  90.0)  THEN 

ZP(I)=ZCP 
ELSE 

ZP(I)=ZCP+XP(I)/TAN(RTHP) 
END  IF 
XN(I)=XP(I 
YN(I)=YP(I 
IF  (THTN  .EQ.  90.0)  THEN 

ZN(I)=ZCN 
ELSE 

ZN(I)=ZCN+XN(I)/TAN(RTHN) 
END  IF 

XP(NCECP-H-1)=XP(I) 
YP(NCECP-I+1)=-1.0*YP(I) 
ZP(NCECP-I+I)=ZP(I) 
XN(NCECP-I+1)=XN(I) 
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YN(NCECP-I+1)=-1.0*YN(I) 

ZN(NCECP-I+1)=ZN(I) 
10  CONTINUE 

YP(NCECP)=YP(1' 

YN(NCECP)=YN(1' 

YP(NHALF)=-1.0^YP(NHALF) 

YN(NHALF)=-1.0*YN(NHALF) 
C+++ 

C+++   COMPUTE  THE  AXES  ROTATION  MATRIX  FOR  CYLINDER  CO-ORDINATE 
C+++ 

CALL  ROTATE ( TCLZ , PCLZ , TCLX , PCLX , R ) 
C+++ 

C+++  TRANSFER  THE  POINTS  TO  GLOBAL  CO-ORDINATE 
C+++ 

CALL  ROTRAN (NCECP , XP , YP , ZP , XCCYL , YCCYL , ZCCYL , R ) 

CALL  ROTRAN (NCECP , XN , YN , ZN , XCCYL , YCCYL , ZCCYL , R) 

CALL  ROTRAN (NCECP, XP,YP,ZP,XCR,YCR,ZCR, ROT) 

CALL  ROTRAN (NCECP, XN,YN,ZN,XCR,YCR,ZCR, ROT) 

XCCAPP(ICG)=0 

YCCAPP(ICG)=0 

ZCCAPP(ICG)=ZCP 

XCCAPN(ICG)=0 

YCCAPN(ICG)=0 

ZCCAPN(ICG)=ZCN 

CALL  R0TRAN(1,XCCAPP(ICG),YCCAPP(ICG),ZCCAPP(ICG), 

*  XCCYL  YCCYL  ZCCYL  R) 

CALL  R0TRAN(1,XCCAPN(ICG),YCCAPN(ICG),ZCCAPN(ICG), 

*  XCCYL, YCCYL, ZCCYL, R) 

CALL  R0TRAN(1 ,XCCAPP(ICG) ,YCCAPP(ICG) ,ZCCAPP(ICG) ,XCR,YCR,ZCR,ROT) 

CALL  R0TRAN(1,XCCAPN(ICG),YCCAPN(ICG),ZCCAPN(ICG),XCR,YCR,ZCR,R0T) 
C+++ 

C+++   SCALE  THE  POINTS 
C+++ 

CALL  SCALES (NCECP, 'G' ,XP,YP,ZP) 

CALL  SCALES (NCECP, 'G' ,XN,YN,ZN) 

CALL  SCALES(1, 'G' ,XCCAPP(ICG),YCCAPP(ICG),ZCCAPP(ICG)) 

CALL  SCALES(1, 'G' ,XCCAPN(ICG) ,YCCAPN(ICG) ,ZCCAPN(ICG) ) 

DO  20  1=1, NCECP 

XCYLP(ICG,I)=XP(I' 

YCYLP(ICG,I)=YP(I' 

ZCYLP(ICG,I)=ZP(I' 

XCYLN(ICG,I)=XN(I' 

YCYLN(ICG,I)=YN(I' 

ZCYLN(ICG,I)=ZN(I' 
20  CONTINUE 
C+++ 

C+++   COMPUTE  THE  MIN.  &  MAX.  X,  Y  &  Z  VALUES  FOR  CYLINDER  GEOMETRY 
C+++ 

CALL  COMPAR (NCECP, COMPCG,XP,YP,ZP) 

CALL  COMPAR (NCECP , COMPCG , XN , YN , ZN) 

WRITE  (2,*)  'SUBROUTINE  CYLCAP  END' 

RETURN 

END 

C • 

Q-k-k-k 

Qk-k-k     SUBROUTINE  DISSET 

C+++ 

C+++   THIS  SUBROUTINE  SETS  UP  THE  GRAPHIC  DIMENSIONS,  AXES  AND  TITLE 


C+++ 


SUBROUTINE  DI SSET ( COMPAL , LENGTH , TITLE ) 

REAL  COMPAL(3,2),LENGTH(3) 

CHARACTER*?  PHI$ ,THETA$ , RADI$ 

CHARACTER*60  TITLE , LABELl , LABEL2 , LABELS 

COMMON  /VUDATA/  PHI ,THETA, RADIUS 

WRITE  (2,*) 

WRITE  (2,*)  'SUBROUTINE  DISSET' 

OPEN  (3,  STATUS='NEW' ) 

WRITE  (3,100)  PHI, THETA, RADIUS 
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100 


200 


F0RMAT(1X,F7.2,1X,F7.2,1X,F7.2) 

CLOSE  (3) 

OPEN  (3,  STATUS= ' OLD ' ) 

READ  (3,200)  PHI $ ,THETA$ , RADIO 
F0RMAT(1X,A7,1X,A7,1X,A7) 


C 

C+++ 
C+++ 

C+++ 


?F)  =  7/PHI$//'  DEG$' 

?Q)  =  7/THETA$//'  DEG$' 
()R  =  7/RADI$//'  M   $' 


LABEL1=' VIEWING  POINT 

LABEL2=' 

LABEL3=' 

CLOSE  (3) 

CALL  AREA2D(8.0,8.0) 

CALL  V0LM3D ( LENGTH ( 1 ) , LENGTH ( 2 ) , LENGTH ( 3 ) ) 

CALL  HEADIN(TITLE,100,1.0,4) 

CALL  HEADIN(LABEL1,100,1.0,4 

CALL  HEADIN(LABEL2,100,1.0,4 

CALL  HEADIN(LABEL3,100,1.0,4 

CALL  X3NANE('(X)   IN  M$MOO 

CALL  Y3NAME( ' (y)   INM$',100 

CALL  Z3NAME('(Z)   IN  M$ ' , 100 

THETAV=90.0-THETA 

CALL  VUANGL(PHI,THETAV,RADIUS) 

CALL  GRAF3D ( COMPAL (1,1),' SCALE ' , COMPAL (1,2), 

■'    "      SCALE' ,COMPAL(2,2) ,C0MPAL(3,1) , 'SCALE' , C0MPAL(3 , 2) ) 


*C0MPAL(2,1) 
WRITE  (2,*) 
RETURN 
END 


SUBROUTINE  DISSET  END 


C 

Q-k-k-k 
Qkkk 
Qkkk 

C+++ 
C+++ 
C+++ 


SUBROUTINE  DISSIN 


THIS  SUBROUTINE  INITIALIZE  DISSPLA 


SUBROUTINE  DISSIN 

CALL  COMPRS 

CALL  PAGE (8. 5, 11.0) 

CALL  FUTURA 

CALL  BASALF 

CALL  MIXALF 

CALL  MX3ALF 

CALL  NOBRDR 

CALL  YAXANG(O.O) 

RETURN 

END 


'L/CSTD') 
' STANDARD ' ) 
'L/CGREEK' , 
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SUBROUTINE  INVERS 


THIS  SUBROUTINE  INVERSES  THE  3X3  MATRIX  RIN 


SUBROUTINE  INVERS (RIN, ROUT) 
REAL  RIN(3,3),R0UT(3,3) 
DETERM=RIN(1,1)*RIN(2,2)*RIN(3,3 

*  RIN(i,3)*RIN(2,1)*RIN(3,2 

*  RIN(1,2)*RIN(2,1)*RIN(3,3 
IF  (DETERM  .EQ.  0.0)  GOTO  10 
ROUT(l,l)=(RIN(2,2)*RIN(3,3)-RIN 
ROUT(l,2)=(RIN(l,3)*RIN(3,2)-RIN 
ROUT(l,3)  =  (RIN(l,2)''^RIN(2,3)-RIN 
ROUT(2,l)=(RIN(2,3)*RIN(3,l)-RIN 
ROUT(2,2)=(RIN(l,l)*RIN(3,3)-RIN 
ROUT(2,3)=(RIN(l,3)*RIN(2,l)-RIN 

RIN(2,1)*RIN(3,2)-RIN 

RIN(1,2)*RIN(3,1)-RIN 

,RIN(1,1)*RIN(2,2)-RIN 


+RIN(1,2)*RIN(2,3)*RIN(3,1)+ 
-RIN(1 , 1 )*RIN(2 , 3)*RIN(3 , 2) - 
-RIN(1,3)*RIN(2,2)*RIN(3,1) 


10 


ROUT (3,1 
ROUT (3,2" 
ROUT (3,3' 
RETURN 
CONTINUE 
PRINT  * 


i*RIN(3,2 

i*RIN(3,3 

i*RIN(2,2 

i*RIN 

|*RIN 

|*RIN 

|*RIN 

|*RIN 


;i,2)*RIN 


I /DETERM 
I /DETERM 
i /DETERM 
I /DETERM 
I /DETERM 
I /DETERM 
I /DETERM 
i/DETERM 
I /DETERM 


THE  DETERMINANT  OF  RIN  IS  EQUAL  TO  ZERO' 


WRITE  (2,*)  'SUBROUTINE  INVERS 
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c 

Q-k-k-k 

Q-k-k-k 

C+++ 
C+++ 
C+++ 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 


2  * 


CALL  DONEPL 

STOP 

END 


THE  DETERMINANT  OF  RIN  IS  EQUAL  TO  ZERO' 
THE  MATRIX  RIN  HAS  THE  FOLLOWING  VALUES' 
',RIN(1,1),'   ',RIN(1,2),'   ',RIN(1,3) 
',RIN(2,1),'   ',RIN(2,2),'   ',RIN(2,3) 
',RIN(3,1),'   ',RIN(3,2),'   ',RIN(3,3) 


C 

Qkkk 
Qkkk 
Qkkk 

C+++ 
C+++ 
C+++ 


SUBROUTINE  NOCYL 


THIS  SUBROUTINE  RESETS  ALL  DATA  BELONG  TO  CYLINDER  GEOMETRY 

SUBROUTINE  NOCYL ( XCYLP , YCYLP , ZCYLP , XCYLN , YCYLN , ZCYLN ) 
PARAMETER  (NCX=100) 
PARAMETER  (NCECP=201) 
REAL  COMPCG(3,2),R(3,3) 

REAL  XCYLP (NCX,NCECP) , YCYLP (NCX,NCECP) , ZCYLP (NCX,NCECP) 
REAL  XCYLN (NCX,NCECP) , YCYLN (NCX,NCECP) , ZCYLN (NCX,NCECP) 
REAL  XCCAPP(NCX) ,YCCAPP(NCX) ,ZCCAPP(NCX) 
REAL  XCCAPN(NCX) ,YCCAPN(NCX) ,ZCCAPN(NCX) 
COMMON  /CGDATA/  ICG,COMPCG,XCCAPP,YCCAPP,ZCCAPP, 
*  XCCAPN,YCCAPN,ZCCAPN 

CALL  RESETl  ( 1 , NCX ,  NCECP  ,  XCYLP  ,  Y.CYLP  ,  ZCYLP  ,  COMPCG ) 
CALL  RESETl ( 1 , NCX , NCECP , XCYLN , YCYLN , ZCYLN , COMPCG) 
CALL  RESET2 (NCX , XCCAPP , NCX , YCCAPP , NCX , ZCCAPP ) 
CALL  RESET2 (NCX , XCCAPN , NCX , YCCAPN , NCX , ZCCAPN ) 
RETURN 
END 


SUBROUTINE  NXT 


THIS  SUBROUTINE  RESET  ALL  GEOMETRY  DATA 

SUBROUTINE  NXT ( XPC , YPC , ZPC , XCYLP , YCYLP , ZCYLP , XCYLN , YCYLN , ZCYLN , 
*XSC , YSC , ZSC , XSAC , YSAC , ZSAC , LGP , TITLE ) 

PARAMETER  (NPX=50) 

PARAMETER  (NEX=12) 

PARAMETER  (NCX=100) 

PARAMETER  (NCECP=201) 

PARAMETER  (NSX=1000) 

PARAMETER  (NSAX=5) 

PARAMETER  (NESAX=500) 

REAL  COMPPG(3,2) , C0MPCG(3 ,2) ,C0MPSG(3 ,2) , C0MPSA(3 , 2) 

REAL  ROT (3,3), ROBS (3,3) 

REAL  XCYLP (NCX, NCECP) , YCYLP (NCX, NCECP ), ZCYLP (NCX, NCECP) 

REAL  XCYLN (NCX, NCECP) , YCYLN (NCX, NCECP) , ZCYLN (NCX, NCECP) 

REAL  XCCAPP (NCX) , YCCAPP (NCX) , ZCCAPP (NCX) 

REAL  XCCAPN(NCX) , YCCAPN(NCX) ,ZCCAPN(NCX) 

REAL  XPC(NPX,NEX) , YPC(NPX,NEX) ,ZPC(NPX,NEX) 

REAL  XSC(NSX,4) ,YSC(NSX,4) ,ZSC(NSX,4) 

REAL  XSAC(NSAX,NESAX,4) , YSAC(NSAX,NESAX,4) ,ZSAC(NSAX,NESAX,4) 

INTEGER  MEP(NPX) ,MSAX(NSAX) 

CHARACTER'*^60  TITLE 

LOGICAL  LGP 

COMMON  /CGDATA/  ICG, COMPCG, XCCAPP , YCCAPP , ZCCAPP, 
*  XCCAPN, YCCAPN, ZCCAPN 

COMMON  /OBDATA/  XOBS , YOBS ,ZOBS , ROBS 

COMMON  /PGDATA/  IPG,MEP , COMPPG 

COMMON  /RTDATA/  XCR, YCR,ZCR,ROT 

COMMON  /SADATA/  ISA,MSAX, COMPSA,MSAXT 

COMMON  /SCALER/  FREQ , lUN, lUS , SCALEF 

COMMON  /SGDATA/  ISG,COMPSG 

COMMON  /VUDATA/  PHI ,THETA, RADIUS 

CALL  RESETl ( 1 , NPX , NEX , XPC , YPC , ZPC , COMPPG) 
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C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 
C+++ 


CALL  RESETl 
CALL  RESETl 
CALL  RESETl 
CALL  RESETl 
CALL  RESET2 
CALL  RESET2 
CALL  RESET2 
CALL  RESET2 
CALL  RESET2 
CALL  ROTATE 
CALL  ROTATE 
LGP=. FALSE. 
TITLE='$' 
SCALEF=1.0 
PHI=60.0 
THETA=30.0 
RADIUS=1.0 
ICG=0 
IPG=0 
ISA=0 
ISG=0 
IUN=1 
IUS=1 
RETURN 
END 


1,NCX,NCECP,XCYLP,YCYLP,ZCYLP,C0MPCG) 
'  1 , NCX , NCE  CP , XCYLN , YCYLN , ZCYLN , COMPCG ) 

1 ,NSX , 4 , XSC , YSC , ZSC , COMPSG) 
[NSAX , NESAX , 4 , XSAC , YSAC , ZSAC , COMPSA) 

NPX , MEP , NS AX , MS AX , 1 , FREQ ) 

1,XCR,1,YCR,1,ZCR) 
■l,XOBS,l,YOBS,l,ZOBS) 

NCX , XCCAPP , NCX , YCCAPP , NCX , ZCCAPP ) 

NCX , XCCAPN , NCX , YCCAPN , NCX , ZCCAPN ) 

0.0, 0.0, 90. 0,0.0, ROT) 
|0. 0,0. 0,90. 0,0.0, ROBS) 


C+++ 
C+++ 
C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 
C+++ 


SUBROUTINE  OBSERV 


THIS  SUBROUTINE  COMPUTES  THE  AXES  ROTATION  MATRIX  AND 
ORIGIN  TRANSLATION  CO-ORDINATES  FOR  THE  CONVERSION  FROM 
GLOBAL  CO-ORDINATE  TO  OBSERVATION  CO-ORDINATE 

IT  ASSUMES  THAT  THE  CENTER  OF  OBSERVATION  IS  AT  THE  CENTER 
OF  THE  WORK  BOX  DEFINED  BY  DISSPLA 

SUBROUTINE  OBSERV (COMPAL) 

REAL  COMPAL(3,2),ROBS(3,3),R(3,3) 

CHARACTER  ANSS 

CHARACTER*2  THETA$,PHI$ 

CHARACTER*20  MSSG1,MSSG2 

COMMON  /OBDATA/  XOBS , YOBS ,ZOBS , ROBS 

COMMON  /OSDATA/  POSMAX,TOSMAX,PHIOS,THETOS 

COMMON  /PIDATA/  PI,RTD 

COMMON  /VUDATA/  PHI ,THETA, RADIUS 

WRITE    (2,*) 

WRITE    (?    *^     I  CTTnoniiTTMir    nncpD^zi 


[2, 


SUBROUTINE  OBSERV 


THE  OFFSET  ANGLES  ARE  NEEDED  TO  COMPENSATE  FOR  THE  DIFFERENCES 
BETWEEN  THE  VIEWING  ANGLES  INTERPRETED  BY  THE  PROGRAM  AND  THAT 
SEEN  BY  DISSPLA 

THETOS=REAL ( INT ( - 1 . 0*TOSMAX*SIN ( 2 . 0*THETA/RTD ) ) ) 
PHIOS=REAL(INT(-1.0*POSMAX*SIN(THETA/RTD))) 

DETERMINE  THE  CENTRE  OF  THE  WORK  BOX 

XCWB= ( COMPAL (1,2) +COMPAL ( 1 , 1 ) ) / 2 . 0 
YCWB=(COMPAL(2,2)+COMPAL(2,1))/2.0 
ZCWB=(COMPAL(3,2)+COMPAL(3,1))/2.0 

COMPUTE  THE  OBSERVATION  POINT  WITH  RESPECT  TO  THE  CENTER 
OF  THE  WORK  BOX 

RPHI= (PHI+PHIOS ) /RTD 
RTHETA= ( THETA+THETOS ) /RTD 
XCOBS=RADIUS'^SIN(RTHETA)*COS(RPHI) 
YCOBS=RADIUS*SIN(RTHETA)*SIN(RPHI) 
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C+++ 
C+++ 
C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 


c 

C+++ 
C+++ 
C+++ 
C+++ 


ZCOBS=RADIUS*COS (RTHETA) 

DETERMINE  THE  OBSERVATION  POINT  IN  GLOBAL  CO-ORDINATE 

XOBS=XCWB+XCOBS 
YOBS=YCWB+YCOBS 
ZOBS=ZCWB+ZCOBS 

DETERMINE  THE  NEW  AXES  ANGLES  CENTERED  AT  THE  OBSERVATION 
POINT  WITH  RESPECT  TO  THE  GLOBAL  CO-ORDINATE  WITH  THE 
Z(OBS)  AXIS  POINTING  TOWARDS  THE  CENTER  OF  THE  WORK  BOX 

THETAZ=180 . 0- (THETA+THETOS ) 

PHIZ=180 . 0+ (PHI+PHIOS ) 

IF  (PHIZ  .GT.  360.0)  PHIZ=PHIZ-360.0 

THETAX=ABS(90.0-THETAZ) 

IF  (THETAZ  .LT.  90.0)  PHIX=180 .0+PHIZ 

IF  (THETAZ  .GE.  90.0)  PHIX=PHIZ 

IF  (PHIX  .GT.  360.0)  PHIX=PHIX-360 .0 

FORM  AXES  ROTATION  MATRIX 

CALL  ROTATE (THETAZ , PHIZ , THETAX , PHIX , R) 

CALL  INVERS(R,ROBS) 

WRITE  (2,*)  '      THE  MATRIX  ROBS  HAS  THE  FOLLOWING  VALUES' 

WRITE  (2,*)  '      ' ,R0BS(1,1), '   ' , ROBS (1 , 2) , '   •,R0BS(1,3) 

WRITE  (2,*)  '      ' ,R0BS(2,1), '   ' ,R0BS(2 ,2) , '   ',ROBS(2,3) 

WRITE  (2,*)  '      ' ,R0BS(3,1), '   ' ,R0BS(3 ,2) , '   ',ROBS(3,3) 

COMPUTE  THE  ORIGIN  TRANSLATION 

XOBS=-1.0*XOBS 
YOBS=-1.0*YOBS 
ZOBS=-1.0*ZOBS 
CALL  ROTRAN ( 1 , XOBS , YOBS , ZOBS ,0.0,0.0,0.0, ROBS ) 


WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

RETURN 

END 


2'i 
2't 


THE  ORIGIN  TRANSLATION  HAS  THE  FOLLOWING  VALUES' 

XOBS  =• ,XOBS 

YOBS  =' ,YOBS 

ZOBS  = '  ZOBS 

SUBROUTINE  OBSERV'eND' 


C+++ 
C+++ 
C+++ 


SUBROUTINE  PLATEG 


THIS  SUBROUTINE  READS  IN  THE  PLATE  CORNERS  AND  TRANSFER  THEM  TO 
GLOBAL  CO-ORDINATE 

SUBROUTINE  PLATEG (XPC,YPC,ZPC) 

PARAMETER  (NPX=50) 

PARAMETER  (NEX=12) 

REAL  XPC(NPX,NEX) , YPC(NPX,NEX) ,ZPC(NPX,NEX) ,X(NEX) , Y(NEX) ,Z(NEX) 

REAL  COMPPG(3,2),R(3,3),ROT(3,3) 

INTEGER  MEP(NPX) 

COMMON  /PCDATA/  IPG,MEP , COMPPG 

COMMON  /RTDATA/  XCR, YCR,ZCR,ROT 

COMMON  /SCALER/  FREQ, lUN, lUS , SCALEF 

WRITE  (2,*) 


WRITE 
READ  IN  DATA 


SUBROUTINE  PLATEG' 


READ(1,*)  MEP(IPG),LSLAB 

WRITE  (2,*)  '      MEP(IPG)  =',MEP(IPG) 

IF  (MEP(IPG)  .GT.  NEX)  GOTO  50 

IF  (LSLAB  .EQ.  0)  GOTO  20 

READ(1,*)  NSLAB 
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C+++ 
C+++ 
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DO  10  I=1,NSLAB 

READ(1,*)  DUMMY, DUMMY, DUMMY, DUMMY, DUMMY 
10  CONTINUE 
20  CONTINUE 

DO  30  I=1,MEP(IPG) 

READ(1,*)X(I),Y(I),Z(I) 
30  CONTINUE 

TRANSFER  THE  POINTS  TO  GLOBAL  CO-ORDINATE 

CALL  ROTRAN(MEP(IPG) ,X, Y,Z,XCR, YCR,ZCR,ROT) 

SCALE  THE  POINTS 

CALL  SCALES(MEP(IPG), 'G' ,X,Y,Z) 

CALL  COMPAR(MEP(IPG) ,COMPPG,X, Y,Z) 

WRITE  (2,'^)  '      IPG  ='  ,IPG 

DO  40  I=1,MEP(IPG) 

XPC(IPG,I)=X(I) 

YPC(IPG,I)=Y(I) 

ZPC(IPG,I)=Z(I) 
40  CONTINUE 

WRITE  (2,*)  'SUBROUTINE  PLATEG  END' 

RETURN 
50  PRINT  *,  'NO.  OF  CORNERS  EXCEEDS  NEX' 

CALL  DONEPL 
•STOP 

END 


C 

Q-k-k-k 
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SUBROUTINE  PLOT 


THIS  SUBROUTINE  PLOTS  THE  GEOMETRY  OF  THE  INPUT  DATA 

SUBROUTINE  PLOT (XPC , YPC , ZPC , XCYLP , YCYLP , ZCYLP , XCYLN , YCYLN , ZCYLN , 
*XSC , YSC , ZSC , XSAC , YSAC , ZSAC , LGP , TITLE ) 

PARAMETER  (NPX=50) 

PARAMETER  (NEX=12) 

PARAMETER  (NCX=100) 

PARAMETER  (NCECP=201) 

PARAMETER  (NSX=1000) 

PARAMETER  (NSAX=5) 

PARAMETER  (NESAX=500) 

REAL  XPC(NPX,NEX) , YPC(NPX,NEX) ,ZPC(NPX,NEX) 

REAL  XCYLP (NCX,NCECP) , YCYLP (NCX,NCECP) , ZCYLP (NCX,NCECP) 

REAL  XCYLN (NCX,NCECP) , YCYLN(NCX,NCECP) ,ZCYLN(NCX,NCECP) 

REAL  XCCAPP(NCX) , YCCAPP(NCX) ,ZCCAPP(NCX) 

REAL  XCCAPN(NCX) , YCCAPN(NCX) ,ZCCAPN(NCX) 

REAL  XSC (NSX , 4 ) , YSC (NSX , 4 ) , ZSC (NSX , 4 ) 

REAL  XSAC(NSAX,NESAX,4) , YSAC(NSAX,NESAX,4) ,ZSAC(NSAX,NESAX,4) 

REAL  COMPAL(3,2),COMPCG(2,3),COMPPG(3,2),COMPSA(3,2),COMPSG(3,2) 

REAL  ROT(3,3),ROBS(3,3) 

REAL  LENGTH(3) 

INTEGER  MEP(NPX),MSAX(NSAX) 

CHARACTER*60  TITLE 

CHARACTER  ANS$ 

LOGICAL  LGP 

COMMON  /CGDATA/  ICG, COMPCG,XCCAPP , YCCAPP,ZCCAPP, 
*  XCCAPN,YCCAPN,ZCCAPN 

COMMON  /OBDATA/  XOBS , YOBS ,ZOBS , ROBS 

COMMON  /OSDATA/  POSMAX,TOSMAX,PHIOS ,THETOS 

COMMON  /PCDATA/  IPG,MEP, COMPPG 

COMMON  /PIDATA/  PI,RTD 

COMMON  /RTDATA/  XCR, YCR,ZCR,ROT 

COMMON  /SCALER/  FREQ , lUN, lUS , SCALEF 

COMMON  /SGDATA/  ISG,COMPSG 

COMMON  /SADATA/  ISA,MSAX, COMPSA,MSAXT 

COMMON  /VUDATA/  PHI ,THETA,RADIUS 
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DATA  COMPAL/3*10 . OEIO , 3*-10 . OEIO/ 

WRITE  (2,*) 

WRITE  (2,*)  'SUBROUTINE  PLOT' 
C+++ 

C+++  DETERMINE  OVERALL  MIN.  &  MAX.  X,  Y  &  Z  VALUES 
C+++ 

CALL  COM? ( COMPAL , COMPCG , COMPPG , COMPSA , COMPSG , LENGTH ) 
10  CONTINUE 
C+++ 

C+++   DETERMINE  THE  VIEWING  ANGLES 
C+++ 

CALL  VANGLE( TITLE, LENGTH) 
C+++ 

C+++   SET  UP  DISSPLA  FOR  3-D  PLOTTING 
C+++ 

CALL  DISSET( COMPAL, LENGTH, TITLE) 
C+++ 

C+++   COMPUTE  ROTATION  MATRIX  AND  TRANSLATION  POSITION  FOR 
C+++  OBSERVATION  CO-ORDINATE 
C+++ 

CALL  OBSERV( COMPAL) 
C+++ 

C+++  PLOT  INFINITE  GROUND  PLANE  ? 
C+++ 

IF  (.NOT.  LGP)  GOTO  20 

CALL  PLOTGP( COMPAL) 
20  CONTINUE 
C+++ 

C+++  PLOT  PLATE (S)  ? 
C+++ 

IF  (IPG  .EQ.  0)  GOTO  30 

CALL  PLOTPG(XPC,YPC,ZPC) 
30  CONTINUE 
.C+++ 

C+++  PLOT  CYLINDER(S)  ? 
C+++ 

IF  (ICG  .EQ.  0)  GOTO  40 

CALL  PLOTCG ( XCYLP , YCYLP , ZCYLP , XCYLN , YCYLN , ZCYLN ) 
40  CONTINUE 
C+++ 

C+++  PLOT  SOURCE (S)  ? 
C+++ 

IF  (ISG  .EQ.  0)  GOTO  50 

CALL  PLOTSG(XSC,YSC,ZSC) 
50  CONTINUE 
C+++ 

C+++   PLOT  SOURCE  ARRAY(S)  ? 
C+++ 

IF  (ISA  .EQ.  0)  GOTO  60 

CALL  PLOTSA(XSAC,YSAC,ZSAC) 
60  CONTINUE 

CALL  ENDPL(O) 
70  CONTINUE 

PRINT  *,  'DO  YOU  WANT  ANOTHER  VIEW  OF  THE  PLOT  (Y  OR  N) 

READ(5, ' (Al)')  ANS$ 

IF  (ANS$  .NE.  'Y'  .AND.  ANS$  .NE.  'N')  GOTO  70 

IF  (ANS$  .EQ.  'N' )  GOTO  80 

GOTO  10 
80  CONTINUE 

WRITE  (2,*)  'SUBROUTINE  PLOT  END' 

RETURN 

END 

C 

C***   SUBROUTINE  PLOTCG 

Q-k:k:k 
C+++ 

C+++   THIS  SUBROUTINE  PLOTS  THE  CYLINDER(S) 
C+++ 
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SUBROUTINE  PLOTCG ( XCYLP , YCYLP , ZCYLP , XCYLN , YCYLN , ZCYLN ) 
PARAMETER  (NCX=100) 
PARAMETER  (NCECP=201) 
REAL  ROT(3,3),ROBS(3,3),COMPCG(3,2) 

REAL  XCYLP(NCX,NCECP) , YCYLP (NCX,NCECP) , ZCYLP (NCX,NCECP) 
REAL  XCYLN(NCX,NCECP) , YCYLN (NCX,NCECP) , ZCYLN (NCX,NCECP) 
REAL  X2(2),Y2(2),Z2(2) 

REAL  XCCAPP(NCX) ,YCCAPP(NCX) ,ZCCAPP(NCX) 
REAL  XCCAPN(NCX) ,YCCAPN(NCX) ,ZCCAPN(NCX) 
INTEGER  ICBDY(NCX) 
LOGICAL  LBLNK1,LBLNK2 

COMMON  /CGDATA/  ICG,COMPCG,XCCAPP,YCCAPP,ZCCAPP, 
*  XCCAPN,YCCAPN,ZCCAPN 

COMMON  /OBDATA/  XOBS , YOBS ,ZOBS , ROBS 
COMMON  /PIDATA/  PI,RTD 
COMMON  /RTDATA/  XCR, YCR,ZCR,ROT 
COMMON  /SCALER/  FREQ , lUN, lUS , SCALEF 
COMMON  /VUDATA/  PHI ,THETA, RADIUS 
WRITE  (2,*) 

WRITE  (2,*)  'SUBROUTINE  PLOTCG' 
DO  10  1=1, ICG 

PLOT  THE  LINES  JOINING  THE  ELLIPSES 

CALL  CYLBDY( I, XCYLP, YCYLP, ZCYLP, I CBDY) 

X2(1)=XCYLP(I,ICBDY(I' ' 

Y2 ( 1 ) =YCYLP ( I , ICBDY ( I 

Z2 ( 1 ) =ZCYLP ( I , ICBDY ( I 

X2(2)=XCYLN(I,ICBDY(I 

Y2(2)=YCYLN(I,ICBDY(I 

Z2(2)=ZCYLN(I,ICBDY(I' 

CALL  CURV3D(X2,Y2,Z2,2',0) 

NHALF=(NCECP-l)/2 

X2 ( 1 ) =XCYLP ( I , I CBDY ( I ) +NHALF ; 

Y2 ( 1 ) =YCYLP (1,1 CBDY ( I ) +NHALF 

Z2 ( 1 ) =ZCYLP ( I , I CBDY ( I ) +NHALF , 

X2 ( 2 ) =XCYLN ( I , I CBDY ( I ) +NHALF 

Y2 ( 2 ) =YCYLN (1,1 CBDY ( I ) +NHALF 

Z2(2)=ZCYLN(I,ICBDY(I)+NHALF! 

CALL  CURV3D(X2,Y2,Z2,2,0) 

PLOT  THE  POSITIVE  END  CAP  ELLIPSE 
BLANK  OFF  THE  REGION  THAT  IS  BLOCKED 


NHALF=(NCECP-l)/2 
CALL  BLANKC(I,XCY 
CALL  PLOTEP ( I , XCYLP , YCYLP , ZCYLP , ICBDY ( I 


CALL  BLANKC(I,XCYLP,YCYLP,ZCYLP,ICBDY(I), 'P' ,LBLNK1 ,LBLNK2) 


,LBLNK1,LBLNK2) 


PLOT  THE  NEGATIVE  END  CAP  ELLIPSE 
BLANK  OFF  THE  REGION  THAT  IS  BLOCKED 


10 


CALL  BLANKC ( I , XCYLN , YCYLN , ZCYLN , ICBDY ( I ) , ' N ' , LBLNKl , LBLNK2 ) 
CALL  PLOTEP ( I , XCYLN , YCYLN , ZCYLN , I CBDY ( I ) , LBLNKl , LBLNK2 ) 


CONTINUE 
WRITE  (2,*) 
RETURN 
END 


SUBROUTINE  PLOTCG  END' 


C 

Q-k-k-k 
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SUBROUTINE  PLOTEP 


THIS  SUBROUTINE  PLOTS  THE  END  CAP  ELLIPSE  OF  CYLINDER 

SUBROUTINE  PLOTEP ( ICYL , XCYL , YCYL , ZCYL , ICBDY , LBLNKl , LBLNK2 ) 

PARAMETER  (NCX=100) 

PARAMETER  (NCECP=201) 

REAL  XCYL (NCX , NCECP ) , YCYL (NCX , NCECP ) , ZCYL (NCX , NCECP ) 

REAL  X(NCECP),Y(NCECP),Z(NCECP) 
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LOGICAL  LBLNK1,LBLNK2 

WRITE  (2,*) 

WRITE  (2,*)  'SUBROUTINE  PLOTEP' 

WRITE  (2,*)  '      LBLNK1=' ,LBLNK1 

WRITE  (2,*)  '      LBLNK2=' ,LBLNK2 

NHALF=(NCECP-l)/2 

IF  (LBLNKl)  GOTO  20 
C+++ 

C+++   PLOT  THE  ONLY  FIRST  HALF  OF  THE  ELLIPSE 
C+++ 

do  10  j=1,nhalf+1 

write  (2,*)  '    do  loop  1' 

k=icbdy+nhalf+j-1 

if  (k  .gt.  ncecp)  k=k-ncecp+1 

x(j)=xcyl(icyl,k 

y(j)=ycyl(icyl,k 

z(j)=zcyl(icyl,k; 

WRITE  (2,*)  J,'   ',X(J),'   ',Y(J),'   ',Z(J) 
10  CONTINUE 

CALL  CURV3D(X,Y,Z,NHALF+1,0) 

GOTO  60 
20  CONTINUE 

IF  (LBLNK2)  GOTO  40 
C+++ 

C+++  PLOT  ONLY  THE  SECOND  HALF  OF  THE  ELLIPSE 
C+++ 

DO  30  J=1,NHALF+1 

WRITE  (2,*)  '      DO  LOOP  2' 

K=ICBDY+J-1 

IF  (K  .GT.  NCECP)  K=K-NCECP+1 

X(J)=XCYL(ICYL,K 

Y(J)=YCYL(ICYL,K 

Z(J)=ZCYL(ICYL,K; 

WRITE  (2,'^)  J,'   ',X(J),'   ',Y(J),'   ',Z(J) 
30  CONTINUE 

CALL  CURV3D(X,Y,Z,NHALF+1,0) 

GOTO  60 
40  CONTINUE 
C+++ 

C+++  PLOT  THE  FULL  ELLIPSE 
C+++ 

DO  50  J=l, NCECP 

WRITE  (2,*)  '      DO  LOOP  3' 

X(J)=XCYL(ICYL,J) 

Y(J)=YCYL(ICYL,J) 

Z(J)=ZCYL(ICYL,J) 

WRITE  (2,*)  J,'   ',X(J),'   ',Y(J),'   ',Z(J) 
50  CONTINUE 

CALL  CURV3D (X,Y,Z, NCECP, 0) 
60  CONTINUE 

WRITE  (2,*)  'SUBROUTINE  PLOTEP  END' 

RETURN 

END 

C - - 

Q-kk-k     SUBROUTINE  PLOTGP 

Qkkk 

C+++ 

C+++   THIS  SUBROUTINE  PLOTS  THE  INFINITE  GROUND  PLANE 

C+++ 

SUBROUTINE  PLOTGP (COMPAL) 

REAL  COMPAL(3,2),X(5),Y(5),Z(5) 

WRITE  (2,*) 

WRITE  (2,*)  'SUBROUTINE  PLOTGP' 

X(1)=C0MPAL(1,1)*1.2 

X(2)=C0MPAL(1,1)*1.2 

X(3)=COMPAL(l,2)*1.2 

X(4)=C0MPAL(1,2)*1.2 


X(5)=X(1) 


90 


Y< 
Y< 
Y< 
Y< 
Y( 
Z( 
Zi 
Zi 
Z\ 
Z( 


l=COMPAL(2,2)*1.2 
i=C0MPAL(2,l)*1.2 
»=COMPAL(2,l)*1.2 
i=COMPAL(2,2)'^1.2 
•=Y(1) 


10 


1 
'2 

3 

4 

5 

1 

2 

3 
'4 

5 
WRITE 
WRITE 

DO  10  i=i,5 
WRITE  (2,*)  I,X(I),Y(I),Z(I) 
CONTINUE 

CALL  CURV3D(X,Y,Z,5,0) 
WRITE  (2,*)  'SUBROUTINE  PLOTGP 
RETURN 
END 


1=0.0 
1=0.0 
1=0.0 
1=0.0 
1=0.0 


m 


CORNERS  OF  INFINITE  GROUND  PLANE  (GLOBAL) 


X(I) 


Y(I) 


Z(I) 


END' 


C 

Q-k-k-k 
Q-kkk 

C+++ 
C+++ 
C+++ 


SUBROUTINE  PLOTPG 


THIS  SUBROUTINE  PLOTS  THE  PLATE (S) 

SUBROUTINE  PLOTPG (XPC,YPC,ZPC) 

PARAMETER  (NPX=50) 

PARAMETER  (NEX=12) 

REAL  XPC(NPX,NEX) , YPC(NPX,NEX) ,ZPC(NPX,NEX) 

REAL  X(NEX+1),Y(NEX+1),Z(NEX+1) 

INTEGER  MEP(NPX) 

COMMON  /PCDATA/  IPG,MEP , COMPPG 

WRITE  (2,'^) 

WRITE  (2,*)  'SUBROUTINE  PLOTPG' 

DO  30  1=1, IPG 

WRITE  (2,*)  '      PLATE  NO.  =',I 

CORNERS  OF  PLATE  (GLOBAL) 
I','      X(I)',' 


WRITE 
WRITE 


!2,*)  ' 
DO  10  J=1,MEP(I) 
X(J)=XPC(I,-J) 
Y(J)=YPC(I,J) 
Z(J)=ZPC(I,J) 
10  CONTINUE 
M=MEP(I)+1 
X(M)=X(1) 
Y(M)=Y(1) 

Z(M)=Z(1) 

DO  20  K=1,M 

WRITE  (2,*)  K,X(K),Y(K),Z(K) 
20  CONTINUE 

CALL  CURV3D(X,Y,Z,M,0) 
30  CONTINUE 

WRITE  (2,*)  'SUBROUTINE  PLOTPG  END' 

RETURN 

END 


Y(I)',' 


Z(I) 


C 

Qkk-k 
Q-k-k-k 
Qkk-k 

C+++ 
C+++ 
C+++ 


SUBROUTINE  PLOTSA 


THIS  SUBROUTINE  PLOTS  THE  SOURCE  ARRAY(S) 

SUBROUTINE  PLOTSA ( XSAC , YSAC , ZS AC ) 

PARAMETER  (NSAX=5) 

PARAMETER  (NESAX=500) 

REAL  XSAC (NS AX , NES AX , 4 ) , YSAC (NSAX , NESAX , 4 ) , ZSAC (NSAX , NESAX , 4 ) 

REAL  X(5),Y(5),Z(5; 

INTEGER  MSAX(NESAX* 
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COMMON  /SADATA/  ISA,MSAX,COMPSA,MSAXT 

WRITE  (2,*) 

WRITE  (2,*)  'SUBROUTINE  PLOTSA' 

DO  40  1=1, ISA 

WRITE  (2,*)  '      SOURCE  ARRAY  NO.  =M 

DO  30  J=1,MSAX(I) 

WRITE  (2,*)  '      SOURCE  ELEMENT  NO.  =',J 

WRITE  (2,*)  '      CORNERS  OF  SOURCE  ELEMENT  (GLOBAL)' 

DO  10  K=l,4 

X(K)=XSAC(I,J,K) 

Y(K)=YSAC(I,J,K) 

Z(K)=ZSAC(I,J,K) 
10  CONTINUE 

X(5)=X(1) 

Y(5)=Y(1) 

Z(5)=Z(1) 

WRITE  (2,*)  '  I','      X(I)','      Y(I)','       Z(I) 

DO  20  K=l,5 

WRITE  (2,*)  K,X(K),Y(K),Z(K) 
20  CONTINUE 

CALL  CURV3D(X,Y,Z,5,0) 
30  CONTINUE 
40  CONTINUE 

WRITE  (2,*)  'SUBROUTINE  PLOTSA  END' 

RETURN 

END 

C 

Q-k-k-k 

Qk-kk      SUBROUTINE  PLOTSG 

Qkkk 

C+++ 

C+++  THIS  SUBROUTINE  PLOTS  THE  SINGLE  SOURCE (S) 

C+++ 

SUBROUTINE  PLOTSG(XSC,YSC,ZSC) 

PARAMETER  (NSX=1000) 

REAL  XSC(NSX,4) , YSC(NSX,4) ,ZSC(NSX,4) 

REAL  X(5),Y(5),Z(5) 

COMMON  /SGDATA/  ISG,COMPSG 

WRITE  (2,*) 

WRITE  (2,*)  'SUBROUTINE  PLOTSG' 

DO  30  1=1, ISG 

WRITE  (2,*)  '      SOURCE  NO.  =',I 

WRITE  (2,*)  '      CORNERS  OF  SOURCE  (GLOBAL)' 

WRITE  (2,*)  '  I','       X(I)','       Y(I)','        Z(I) 

DO  10  J=l,4 

X(J)=XSC(I,J) 

Y(J)=YSC(I,J) 

Z(J)=ZSC(I,J) 
10  CONTINUE 

X(5)=X(1) 

Y(5)=Y(1) 

Z(5)=Z(1) 

DO  20  K=l,5 

WRITE  (2,*)  K,X(K),Y(K),Z(K) 
20  CONTINUE 

CALL  CURV3D(X,Y,Z,5,0) 
30  CONTINUE 

WRITE  (2,*)  'SUBROUTINE  PLOTSG  END' 

RETURN 

END 

C 

Qkkk 

C***   SUBROUTINE  RESETl 

Qkkk 
C+++ 

C+++   THIS  SUBROUTINE  INITIALIZES  THE  GEOMETRICAL  CO-ORDINATES 

C+++   AS  WELL  AS  THE  COMPARISON  VARIABLE 

C+++ 


SUBROUTINE  RESETl (II , 12 , 13 ,X, Y,Z, C) 
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REAL  X(I1,I2,I3),Y(I1,I2,I3),Z(I1,I2,I3),C(3,2) 

DO  30  J1=1,I1 

DO  20  J2=1,I2 

DO  10  J3=1,I3 

X(J1,J2,J3)=0.0 

Y(J1,J2,J3)=0.0 

Z(J1,J2,J3)=0.0 
10  CONTINUE 
20  CONTINUE 
30  CONTINUE 

A=10.0E10 

DO  50  1=1,2 

DO  40  J=l,3 

C(J,I)=A 
40  CONTINUE 

A=-10.0E10 
50  CONTINUE 

RETURN 

END 

C 

C***   SUBROUTINE  RESET2 

C+++ 

C+++  THIS  SUBROUTINE  RESETS  3  SINGLE  DIMENSIONED  ARRAYS  TO  ZERO 
C+++ 

SUBROUTINE  RESET2 ( I 1 , XI , 12 , X2 , I 3 , X3 ) 

REAL  X1(I1),X2(I2),X3(I3) 

DO  10  J=1,I1 

X1(J)=0.0 
10  CONTINUE 

DO  20  J=1,I2 

X2(J)=0.0 
20  CONTINUE 

DO  30  J=1,I3 

X3(J)=0.0 
30  CONTINUE 

RETURN 

END 

C 

Q-k-k-k 

Qk-kk      SUBROUTINE  ROTATE 
Qkkk 

C+++ 

C+++  THIS  SUBROUTINE  COMPUTES  THE  AXES  ROTATION  MATRIX 
C+++ 

SUBROUTINE  ROTATE (THETAZ , PHIZ , THETAX , PHIX , R) 

REAL  R(3,3) 

COMMON  /PIDATA/  PI,RTD 

THZ=THETAZ/RTD 

PHZ=PHIZ/RTD 

THX=THETAX/RTD 

PHX=PHIX/RTD 

R(1,1)=C0S(PHX)*SIN(THX) 

R(2,1)=SIN(PHX)*SIN(THX) 

R(3,1)=C0S(THX) 

R(1,3)=C0S(PHZ)*SIN(THZ) 

R(2,3)=SIN(PHZ)'^SIN(THZ) 

R(3,3)=C0S(THZ) 

D1=R(1,3)*R(1,1)+R(2,3)*R(2,1)+R(3,3)*R(3,1) 

IF  (ABS{D1)  .GT.  0.1)  GOTO  10 
C     R(1,1)=R(1,1)-R(1,3)*D1 
C     R(2,1)=R(2,1)-R(2,3)*D1 
C     R(3,1)=R(3,1)-R(3,3)^D1 

C     D2=SQRT(R(1,1)*R(1,1)+R(2,1)*R(2,1)+R(3,1)*R(3,1)) 
C     R(1,1)=R(1,1)/D2 
C     R(2,1)=R(2,1)/D2 
C     R(3,1)=R(3,1)/D2 

R(1,2)=R(2,3)*R(3,1)-R(3,3)*R(2,1) 
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R(2,2)=R(1,1)*R(3,3)-R(1,3)*R(3,1) 
R(3,2)=R(1,3)*R(2,1)-R(2,3)*R(1/1) 


10 


RETURN 
PRINT  * 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 


2'! 

2'i 
2'i 
2't 
2'i 


'AXES  SPECIFIED  ARE  NOT  ORTHOGONAL' 


CALL  DONEPL 

STOP 

END 


SUBROUTINE  ROTATE' 

AXES  SPECIFIED  ARE  NOT  ORTHOGONAL' 
THE  INPUT  PARAMETERS  ARE  AS  FOLLOWS' 
THETA-Z  =' ,THETAZ, '  DEG' 
PHI-Z   =' ,PHIZ, '  DEG' 
THETA-X  =' ,THETAX, '  DEG' 
PHI-X   =' ,PHIX, '  DEG' 


C 

Q-k-k-k 

C+++ 
C+++ 
C+++ 


SUBROUTINE  ROTRAN 


THIS  SUBROUTINE  ROTATES  AND  TRANSLATE  CO-ORDINATES 

SUBROUTINE  ROTRAN (N , X , Y , Z , XC , YC , ZC , R) 

REAL  X(N),Y(N),Z(N),R(3,3) 

DO  10  1=1, N 

X1=X(I^ 

Y1=Y(I 

Z1=Z(I, 

X(I)=R(1,1)*X1+R(1,2)*Y1+R(1,3)*Z1+XC 

Y(I)=R(2,1)*X1+R(2,2)*YH-R(2,3)*Z1+YC 

2(1 )=R 

10  CONTINUE 
RETURN 
END 


*X1+R(1,2)*Y1+R( 
*X1+R(2,2)*YH-R( 
*X1+R(3,2)*Y1+R(3;3)*Z1+ZC 


C 

Qk-k-k 
Q-kkk 
Qkk-k 

C+++ 
C+++ 
C+++ 
C+++ 
C+++ 


SUBROUTINE  SCALES 


THIS  SUBROUTINE  SCALES  THE  GEOMETRIES 
ALPHABET  'S'  FOR  SOURCES 

AND  'G'  FOR  ALL  OTHER  GEOMETRIES 

SUBROUTINE  SCALES (N,A$ ,X,Y,Z) 

REAL  X(N),Y(N),Z(N) 

CHARACTER  A$ 

COMMON  /SCALER/FREQ,IUN,IUS,SCALEF 


'G'  ) 
EQ. 

lUN  .EQ. 

lUN  .EQ. 


10 


IF  (A$  .EQ. 

IF  (lUN 

IF 

IF 
END  IF 
IF  (A$ 

IF 

IF 

IF 

IF 
END  IF 
DO  10  1=1, N 
X(I)=SCALE*X 
Y(I)=SCALE*Y 
Z(I)=SCALE'^Z 
CONTINUE 
RETURN 
END 


THEN 

1)  SCALE=SCALEF 

2)  SCALE=0.3048*SCALEF 

3)  SCALE=0.0254*SCALEF 


EQ .  ' S ' )  THEN 

lUS  .EQ.  0)  SCALE=0.2997925/FREQ*SCALEF 

—  -   --   -   SCALE=SCALEF 

SCALE=0.3048*SCALEF 
SCALE=0 . 0254*SCALEF 


lUS  .EQ. 
lUS  .EQ. 


lUS  .EQ, 


C 

Q-kkk 
Qkkk 
Qkkk 

C+++ 


SUBROUTINE  SORCEA 
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C+++  THIS  SUBROUTINE  READS  IN  THE  DATA  FOR  SOURCE  ARRAY  AND  COMPUTES 

C+++  THE  CORNERS  OF  EACH  ELEMENTS. 

C+++  IT  ALSO  COMPARE  THE  MIN.  &  MAX.  X,  Y  &  Z  VALUES 

C+++ 

C+++     CENTER  OF  EACH  ELEMENT  :  XCSA,YCSA,ZCSA 

C+++     ANGLES  NEEDED  TO  DEFINE  THE  SOURCE  ARRAY  CO-ORDINATE 

C+++  THETA  TO  ZT  AXIS  :  THSAZ 

C+++  PHI  TO  ZT  AXIS  :  PHSAZ 

C+++  THETA  TO  XT  AXIS  :  THSAX 

C+++  PHI  TO  XT  AXIS  •  PHSAX 

C+++     AXES  ROTATION  MATRIX " FOR  SOURCE  ARRAY  CO-ORDINATE  :  RSA 


C+++ 


SUBROUTINE  SORCEA ( XSAC , YSAC , ZSAC ) 

PARAMETER  (NSX=1000) 

PARAMETER  (NSAX=5) 

PARAMETER  (NESAX=500) 

REAL  XSAC(NSAX,NESAX,4) ,YSAC(NSAX,NESAX,4) ,ZSAC(NSAX,NESAX,4) 

REAL  XCSA(NESAX) , YCSA(NESAX) ,ZCSA(NESAX) 

REAL  X(4),Y(4),Z(4) 

REAL  COMPSA(3,2),R(3,3),RSA(3,3),COMPSG(3,2) 

INTEGER  MSAX(NSAX) 

COMMON  /RTDATA/  XCR,YCR,ZCR,R 

COMMON  /SCALER/  FREQ , lUN, lUS , SCALEF 

COMMON  /SADATA/  ISA,MSAX, COMPSA,MSAXT 

COMMON  /SGDATA/  ISG,COMPSG 

WRITE  (2,'^) 

WRITE  (2,*)  'SUBROUTINE  SORCEA' 
C+++ 

C+++  READ  IN  DATA 
C+++ 

WRITE  (2,'^)  '      ISA  ='  ,ISA 

READ(1,*)  MSAX(ISA) 

WRITE  (2,'^)  '      MSAX(ISA)  =',MSAX(ISA) 

IF  (MSAX(ISA)  .GT.  NESAX)  GOTO  40 

MS AXT=MS AXT+MS AX (ISA) 

IST=ISA+ISG+MSAXT 

WRITE  (2,*)  '      ISG       =' ,ISG 

WRITE  (2,*)  '      MSAXT     =',MSAXT 

WRITE  (2,*)  '      1ST       =' ,IST 

IF  (1ST  .GT.  NSX)  GOTO  50 

DO  10  I=1,MSAX(ISA) 

READ(1,*)  XCSA(I) ,YCSA(I) ,ZCSA(I) 
10  CONTINUE 

CALL  SCALES(MSAX(ISA) , 'G' ,XCSA, YCSA,ZCSA) 

READ ( 1 , * )  THSAZ , PHSAZ , THSAX , PHSAX 

WRITE  (2,*)  '      THSAZ=' , THSAZ, '  PHSAZ= ', PHSAZ 

WRITE  (2  *)  '      THSAX=' , THSAX, '  PHSAX= ', PHSAX 

READ(1,*)  DUMMY, HS, HAWS 

WRITE  (2,*)  '      HS  =',HS,'  HAWS  =',HAWS 

READ(1,*)  DUMMY, DUMMY 
C+++ 

C+++   COMPUTE  THE  AXES  ROTATION  MATRIX  FOR  SOURCE  ARRAY 
C+++ 

CALL  ROTATE (THSAZ , PHSAZ , THSAX , PHSAX , RSA ) 
C+++ 

C+++   DETERMINE  THE  CORNERS  OF  EACH  SOURCE  ELEMENTS  IN  SOURCE  ARRAY 
C+++   CO-ORDINATE 
C+++ 

DO  30  I=1,MSAX(ISA) 

X(l)=HAWS/2.0 

X(2)=HAWS/2.0 

X(3)=-1.0*HAWS/2.0 

X(4)=-1.0*HAWS/2.0 

y(i)=o.o 

Y(2)=0.0 

Y(3)=0.0 

Y(4)=0.0 

Z(l)=HS/2.0 

Z(2)=-1.0*HS/2.0 
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Z(3)=-1.0*HS/2.0 

Z(4)=HS/2.0 

CALL  SCALES(4, 'S' ,X,Y,Z) 
C+++ 

C+++  TRANSFER  THE  CORNER  LOCATIONS  TO  GLOBAL  CO-ORDINATE 
C+++ 

CALL  R0TRAN(4,X,Y,Z,XCSA(I) ,YCSA(I) ,ZCSA(I) ,RSA) 

CALL  R0TRAN(4,X,Y,Z,XCR,YCR,ZCR,R) 

DO  20  J=l,4 

XSAC(ISA,I,J)=X(J) 

YSAC(ISA,I,J)=Y(J) 

ZSAC(ISA,I,J)=Z(J) 
20  CONTINUE 
C+++ 

C+++   COMPARE  THE  MIN.  &  MAX.  X,  Y  &  Z  VALUES 
C+++ 

CALL  C0MPAR(4,C0MPSA,X,Y,Z) 
30  CONTINUE 

WRITE  (2,*)  'SUBROUTINE  SORCEA  END' 

RETURN 
40  CONTINUE 

PRINT  *,  'THE  NO.  OF  SOURCE  ELEMENTS  =  ' ,MSAX(ISA) 

PRINT  *,  'NO.  OF  SOURCE  ELEMENTS  PER  ARRAY  EXCEEDS  NESAX' 

CALL  DONEPL 

STOP 
50  CONTINUE 

PRINT  *,  'THE  TOTAL  NO.  OF  SOURCES  =  ',IST 

PRINT  *,  'TOTAL  NO.  OF  SOURCES  EXCEEDS  NSX' 

CALL  DONEPL 

STOP 

END 

C 

Q-kkk      SUBROUTINE  SORCEG 

C+++ 

C+++  THIS  SUBROUTINE  READS  IN  THE  SOURCE  DATA  AND  COMPUTES  THE  CORNERS' 

C+++  LOCATIONS 

C+++   IT  ALSO  COMPARES  THE  MIN.  &  MAX.  X,  Y  &  Z  VALUES 

C+++ 

SUBROUTINE  SORCEG(XSC, YSC,ZSC) 

PARAMETER  (NSX=1000) 

REAL  XSC(NSX,4) ,YSC(NSX,4) ,ZSC(NSX,4) ,X(4) ,Y(4) ,Z(4) 

REAL  C0MPSG(3,2),R(3,3),RS(3,3) 

COMMON  /RTDATA/  XCR, YCR,ZCR,R 

COMMON  /SCALER/  FREQ , lUN, lUS , SCALEF 

COMMON  /SGDATA/ISG,COMPSG 

WRITE  (2,*) 

WRITE  (2,*)  'SUBROUTINE  SORCEG' 
C+++ 

C+++   READ  IN  DATA 
C+++ 

WRITE  (2 ,*)  '      ISG  =' ,ISG 

READ(1,*)  XCS,YCS,ZCS 

WRITE  (2,'*')  '      XCS  =',XCS,'  YCS  =',YCS,'  ZCS  =',ZCS 

CALL  SCALES ( 1 , ' G ' , XCS , YCS , ZCS ) 

READ(1,*)  THSZ,PHSZ,THSX,PHSX 

WRITE  (2'*)  '      THSZ=' ,THSZ, '  PHSZ=',PHSZ 

WRITE  (2 ,*)  '      THSX=' ,THSX, '  PHSX=',PHSX 

READ(1,'^)  DUMMY, HS, HAWS 

WRITE  (2/*)  '      HS  =',HS,'  HAWS  =',HAWS 

READ(1,*)  DUMMY, DUMMY 
C+++ 

C+++   COMPUTE  THE  AXES  ROTATION  MATRIX  FOR  SOURCE  CO-ORDINATE 
C+++ 

CALL  ROTATE ( THSZ , PHSZ , THSX , PHSX , RS ) 
C+++ 

C+++   COMPUTE  THE  CORNERS  OF  THE  SOURCE 
C+++ 
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X(l)=HAWS/2.0 

X(2)=HAWS/2.0 

X(3)=-1.0*HAWS/2.0 

X(4)=-1.0*HAWS/2.0 

Y(1)=0.0 

Y(2)=0.0 

Y(3)=0.0 

Y(4)=0.0 

Z(l)=HS/2.0 

Z(2)=-1.0*HS/2.0 

Z(3)=-1.0*HS/2.0 

Z(4)=HS/2.0 

CALL  SCALES(4, 'S' ,X,Y,Z) 
C+++ 

C+++  TRANSFER  THE  CORNER  LOCATIONS  TO  GLOBAL  CO-ORDINATE 
C+++ 

CALL  R0TRAN(4,X,Y,Z,XCS,YCS,ZCS,RS) 

CALL  R0TRAN(4,X,Y,Z,XCR,YCR,ZCR,R) 
C+++ 
C+++   COMPARE  THE  MIN.  &  MAX.  X,  Y  &  Z  VALUES 


C+++ 


DO  10  1=1,4 
XSC(ISG,I)=X(I) 
YSC(ISG,I)=Y(I) 
ZSC(ISG,I)=Z(I) 
10  CONTINUE 

CALL  C0MPAR(4,C0MPSG,X,Y,Z) 

WRITE  {2,->')     'SUBROUTINE  SORCEG  END' 

RETURN 

END 


Q-k-k-k 

Q-k-k-h     SUBROUTINE  VANGLE 

Qkkk 
C+++ 

C+++  THIS  SUBROUTINE  DETERMINES  THE  VIEWING  ANGLES 
C+++ 

SUBROUTINE  VANGLE (TITLE , LENGTH) 

REAL  LENGTH(3) 

CHARACTER  ANS$ 

CHARACTER*60  TITLE 

COMMON  /VUDATA/  PHI ,THETA, RADIUS 

WRITE  (2,*) 

WRITE  (2,*)  'SUBROUTINE  VANGLE' 
C+++ 

C+++   COMPUTE  THE  MINIMUM  DISTANCE  RADMIN  AWAY  FROM  THE  CENTER  OF 
C+++   THE  WORK  BOX 

C+++  ALSO  ENSURE  THAT  THE  RADIUS  CHOSEN  IS  GREATER  THAN  RADMIN 
C+++ 

RADMIN=1.0 

DO  10  1=1,3 

IF  (LENGTH(I)*5.0  .GT.  RADMIN)  RADMIN=REAL(INT(LENGTH(I)*5.0) ) 
10  CONTINUE 

IF  (RADIUS  .LT.  RADMIN)  RADIUS=RADMIN 
20  CONTINUE 

CALL  FRTCMSCCLRSCRN  ') 

PRINT  *,  TITLE 

PRINT  * 

PRINT  *,  'DO  YOU  WANT  TO  CHANGE  THE  VIEWING  ANGLE?' 

PRINT  *, 

PRINT  *, 

PRINT  *,  '    THETA  IN  DEG  =',THETA 
'    RADIUS  IN  M   =• , RADIUS 
'ANSWER  Y  OR  N  PLEASE' 
(Al)')  ANS$ 

IF  (ANS$  .NE.  'Y'  .AND.  ANS$  .NE.  'N')  GOTO  20 

IF  (ANS$  .EQ.  'N' )  GOTO  40 

PRINT  *,  'ENTER  PHI  IN  DEG' 

READ(5,*)  PHI 
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PRINT  * 
PRINT  * 
READ(5, 


'THE  PRESENT  SETTINGS  (FROM  CENTER  OF  WORK  BOX)  ARE 
'    PHI  IN  DEG   =' ,PHI 


PRINT  *,  'ENTER  THETA  IN  DEC 

READ (5,*)  THETA 
30  PRINT  *,  'ENTER  RADIUS  IN  M' 

READ (5,*)  RADIUS 

IF  (RADIUS  .GE.  RADMIN)  GOTO  40 

PRINT  *,  'RADIUS  MUST  BE  GREATER  OR  EQUAL  TO  ', RADMIN, '  M' 

GOTO  30 
40  CONTINUE 

CALL  FRTCMSCCLRSCRN  ') 


WRITE 

WRITE 

WRITE 

WRITE 

RETURN 

END 


2'* 
2'i 

2'! 


PHI  =' ,PHI 
'      THETA  =' , THETA 
'      RADIUS  =' , RADIUS 
'SUBROUTINE  VANGLE  END' 
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4. 


SA  CARD  GENERATING  CODE  (GTDSA) 
a.  Flow  Chart 


c 


start 


-SUBR.  «coc 


r^aos  in 
KC-ISC  c 


SUBR.    f-LWCTH 


rt«os  Tn  geoa. 

of  tmy  4 
co«outc«  csntar 


SUBR..  T 


COBtXJUrttI 

C-fteld  aap, 
tapering  rttfd 


SUBR.  Z?.KUl 


E-ri«ld 
Mgnftuot  for 


SL^aR. 

wrf  IB 


jRITEa 


es  outs^jt 
cata  ft  la 
according  to 

HEC-JSCfprneta 


Stop 
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b.  Program  Listing 

C  ********************** 

C  *       GTDSA        * 

C  *    BY  KOH  WEE  JIN    * 

C  *   ON  OCT  10  1986    * 

C  *       AT  NPS       * 

Q  ********************** 
C  +  +  + 

C+++  THIS  PROGRAM  IS  TO  CREATE  THE  SA  CARD  NEEDED  BY  NEC-BSC  CODE 

C+++  FOR  PLANAR  ARRAY 

C+++ 

C+++  It  is  capable  of  producing  the  following  Taperings  for  both  the 

C+++  Xt  and  Zt  directions  : 

C+++ 

C+++        Uniform 

C+++         Cosine 

C+++         Cosine  square 

C+++         Triangular  and 

C+++         binomial 

C+++ 

C+++  with  either  TE  10  mode  or  Uniform  distribution  for  all  elements 

C+++ 

C+++  The  code  uses  the  following  assumptions: 

C+++ 

C+++     Simple  rectangular  array  grid 

C+++     All  elements  are  confined  to  Xt-Zt  plane 

C+++     All  elements  have  the  same  length,  width  and  orientation 

C+++     E  field  is  orientated  along  Xt  direction 

C+++ 

C+++  The  variabel  names  used  and  their  meanings  are  listed  below: 

C+++ 

C+++     Maximum  Dimensions 

C+++ 

C+++         NESAX   :  Max.  No.  of  elements  per  array 

C+++         NELSAX  :  Max.  No.  of  elements  per  side 

C+++  Note  that  NELSAX  is  needed  to  limit  the 

C+++  dimensions  of  the  array  variables 

C+++ 

C+++     Units  and  Wavelength 

C+++ 

C+++         lUN    :  Integer  used  to  define  geometry  unit 

C+++         lUS    :  Integer  used  to  define  source  unit 

C+++ 

C+++         UNITS   :  Dimension  of  unit  specified 

C+++         UNITS   :  Unit  conversion  ratio  to  m 

C+++ 

C+++         FREQ   :  Frequency  in  GHz 

C+++         LAMBDA  :  Wavelength  in  m 

C+++ 

C+++     Rotation  Angles  and  Matrix 

C+++ 

C+++         THSZ 

C+++  PHSZ 

C+++  THSX 

C+++  PHSX 

C+++  ROT 

C+++  LORTHO 

C+++ 

C+++     Array  Area 

C+++ 

C+++         XALENG  :  Width  of  array  area  including  edge  spacing 

C+++         ZALENG  :  Length  of  array  area  including  edge  spacing 

C+++ 

C+++         XCAREA  :  X  co-ord.  of  the  center  of  array  area 

C+++         YCAREA  :  Y  co-ord.  of  the  center  of  array  area 

C+++         ZCAREA  :  Z  co-ord.  of  the  center  of  array  area 

C+++ 
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Theta  angle  of  Zt  axis  w.  r.  t.  global  co-ord. 
Phi  angle  of  Zt  axis  w.  r.  t.  global  co-ord. 
Theta  angle  of  Xt  axis  w.  r.  t.  global  co-ord. 
Phi  angle  of  Xt  axis  w.  r.  t.  global  co-ord. 
Axes  rotation  matrix 
Logic  to  check  if  Xt  and  Zt  are  orthogonal 


C+++ 

Element  par 

C+++ 

C+++ 

NX 

C+++ 

NZ 

C+++ 

C+++ 

A 

C+++ 

B 

C+++ 

C+++ 

XCE 

C+++ 

YCE 

C+++ 

ZCE 

C+++ 

C+++ 

XELENM 

C+++ 

ZELENM 

C+++ 

C+++ 

XELENG 

C+++ 

C+++ 

ZELENG 

C+++ 

C+++ 

C+++ 

XESPAC 

C+++ 

ZESPAC 

C+++ 

C+++ 

Tapering 

C+++ 

C+++ 

I  XT  A? 

C+++ 

C+++ 

IZTAP 

C+++ 

C+++ 

C+++ 

AMPPED 

C+++ 

XAMP 

C+++ 

ZAMP 

C+++ 

^ 

C+++ 

Power  and  E 

C+++ 

C+++ 

PTOTAL 

C+++ 

C+++ 

E 

C+++ 

ERATIO 

C+++ 

ESQSUM 

C+++ 

EMAX 

C+++ 

C+++ 

Constants 

C+++ 

C+++ 

C 

C+++ 

DTR 

C+++ 

ZO 

C+++ 

C+++ 
C+++ 
C+++ 


:  No.  of  elements  along  Xt  direction 
:  No.  of  elements  along  Zt  direction 

:  Length  of  element  in  Zt  direction 
:  Width  of  element  in  Xt  direction 

X  co-ord.  of  the  center  of  each  element 
Y  co-ord.  of  the  center  of  each  element 
Z  co-ord.  of  the  center  of  each  element 

Element  width  in  Xt  direction  in  m 
Element  length  in  Zt  direction  in  m 

Element  width  in  Xt  direction  in  the  same  unit 
specified  for  geometry  (lUN) 

Element  length  in  Zt  direction  in  the  same  unit 
specified  for  geometry  (lUN) 

Element  spacing  in  Xt  direction 
Element  spacing  in  Zt  direction 


Integer  used  to  define  the  type  of  element 
tapering  along  Xt  direction 
Integer  used  to  define  the  type  of  element 
tapering  along  Zt  direction 

Amplitude  ratio  of  pedestal 
Amplitude  tapering  along  Xt  direction 
Amplitude  tapering  along  Zt  direction 


Total  input  power  in  watts 

E  field  for  each  element  in  V/m 
E  field  amplitude  ratio  for  each  element 
Sum  of  the  square  of  E  field  ratio 
Max.  E  field  in  V/m 


Speed  of  light  divided  by  1E9 
Degree  to  radian  conversion  ratio 
INtrinsic  wave  impedance  in  ohm 

PARAMETER  (NESAX=45000) 

PARAMETER  (NELSAX=270) 

REAL  XCE(NELSAX,NELSAX) ,YCE(NELSAX,NELSAX) ,ZCE(NELSAX,NELSAX) 

REAL  XAMP (NELSAX), ZAMP (NELSAX) 

REAL  E (NELSAX, NELSAX), LAMBDA, R0T(3, 3) 

CHARACTER* 1  ANS$ 

LOGICAL  LORTHO 

COMMON  /EANGLE/  THSZ ,PHSZ,THSX,PHSX 

COMMON  /GENDAT/  C,PI,DTR,ZO 

COMMON  /NECDAT/  lUN, lUS , FREQ, LAMBDA 

COMMON  /RTDATA/  ROT ,XCAREA, YCAREA, ZCAREA 

COMMON  /XZDATA/  NX,NZ,XALENG,ZALENG,A,B, IDIST 

0=0.2997925 

PI=3. 1415926 

DTR=PI/180.0 

Z0=376.7 

Get  NEC-BSC  commands  on  units  and  frequency 

CALL  NECCMD 
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C+++ 

C+++  Compute  the  center  locations  of  each  elements 

C+++ 

CALL  ELMCEN(XCE,YCE,ZCE) 
C+++ 

C+++  Select  the  tapering  types  and  pedestal  height 
C+++ 

CALL  TAPSEL(IXTAP,IZTAP,AMPPED) 
C+++ 

C+++  Compute  the  amplitude  taperings 
C+++ 

CALL  TAPER ( IXTAP , ' X ' , XAMP , XCE ) 

CALL  TAPER ( IZTAP, 'Z' ,ZAMP,ZCE) 
C+++ 

C+++  Computer  the  E-field  magnitude 
C+++ 

CALL  EFIELD(XAMP,ZAMP,E,AMPPED) 
C+++ 

C+++  Write  out  the  SA  card  data 
C+++ 

CALL  WRITED(XCE,YCE,ZCE,E) 

STOP 

END 


*   SUBROUTINE  EFIELD   * 


C 
C 
C 

c 
c 

C+++ 

C+++  This  subroutine  computes  the  E  field  in  V/m  for  each  element 

C+++ 

SUBROUTINE  EFIELD (XAMP , ZAMP , E , AMPPED ) 

PARAMETER  (NESAX=45000) 

PARAMETER  (NELSAX=270) 

REAL  XAMP(NELSAX) ,ZAMP(NELSAX) , LAMBDA 

REAL  ERATIO(NELSAX,NELSAX) ,E(NELSAX,NELSAX) 

REAL  UNITS (0:3) 

CHARACTER* 1  ANS$ 

COMMON  /GENDAT/  C,PI,DTR,ZO 

COMMON  /NECDAT/  lUN, lUS , FREQ , LAMBDA 

COMMON  /XZDATA/  NX,NZ,XALENG,ZALENG, A,B , IDIST 

DATA  UNITS ( 1 ) , UNITS ( 2 ) , UNITS ( 3 ) / 1 • 0 , 0 . 3048 , 0 . 0254/ 

UNITS (0)=LAMBDA 

WRITE  (2,'^) 

WRITE  (2,*)  'Subroutine  EFIELD' 

WRITE  (2,*)  '  I       Xamp' 

DO  10  1=1, NX 

WRITE  (2,*)  I,XAMP(I) 
10  CONTINUE 

WRITE  (2,*)  '  I       Zamp' 

DO  20  1=1, NZ 

WRITE  (2,*)  I,ZAMP(I) 
20  CONTINUE 
C+++ 

C+++  Convert  element  lengths  to  m 
C+++ 

XELENM=B*UNITS ( lUS ) 
ZELENM=A'^UNITS  ( lUS  ) 
C+++ 

C+++  Compute  the  relative  amplitude 
C+++ 

ESQSUM=0.0 
DO  40  1=1, NZ 

DO  30  J=1,NX 

ERATIO(I,'J)=XAMP(J)*ZAMP(I)*(1.0-AMPPED)+AMPPED 
ESQSUM=ESQSUM+ERATIO ( I , J ) **2 
30    CONTINUE 
40  CONTINUE 
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C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 
C+++ 


50 


C+++ 
C+++ 
C+++ 


55 
58 


C+++ 
C+++ 
C+++ 


60 


C+++ 
C+++ 
C+++ 


70 
80 


90 


WRITE  (2,*)  '    ESQSUM  =  ' ,ESQSUM 

Enter  total  input  power 

PRINT  * 

PRINT  *,  'Enter  total  input  power  in  Watt' 

PRINT  * 

READ  (5,*)  PTOTAL 

PRINT  * 

WRITE  (2,*)  '    PTOTAL  =  ', PTOTAL, '  W' 

Enter  element  distribution  type 
TE  10  of  Uniform 

CONTINUE 
PRINT  * 

PRINT  *,  'Enter  element  distribution  type' 
PRINT  *,  '0)  Uniform  distribution' 
PRINT  *,  '1)  TE  10  mode' 
PRINT  * 

READ  (5,*)  IDIST 

IF  (IDIST  .NE.  0  .AND.  IDIST  .NE.  1)  GOTO  50 
IF  (IDIST  .EQ.  0)  GOTO  55 

Compute  maximum  E  field 

EMAX=SQRT (PT0TAL*4 . 0*ZO/ZELENM/XELENM/ESQSUM) 

GOTO  58 
CONTINUE 

EMAX=SQRT(PTOTAL^Z0/ZELENM/XELENM/ESQSUM) 
CONTINUE 

WRITE  (2,*)  '    EMAX   =  ' ,EMAX, '  V/m' 

Check  if  Emax  exceeds  2.9  MV/m 

IF  (EMAX  .GT.  1.0631E6)  THEN 
CONTINUE 

PRINT  * 

PRINT  *,  'Emax   =  ' ,EMAX, '  V/m' 

PRINT  *,  'Emax  is  greater  than  the  max.  power  flux  constrain' 

PRINT  *,  'of  300  KW/sq-cm  or  equivalent  to  10.631  KV/cm' 

PRINT  *,  'Do  you  want  to  continue?' 

PRINT  * 

READ  (5, ' (Al)')  ANS$ 

IF  (ANS$  .NE.  'N'  .AND.  ANS$  .NE.  'Y')  GOTO  60 

IF  (ANS$  .EQ.  'N')  GOTO  90 
END  IF 

Compute  individual  excitations 

DO  80  1=1, NZ 

DO  70  J=1,NX 

E ( I , J ) =EMAX*ERATIO ( I , J ) 
CONTINUE 
CONTINUE 

WRITE  (2,*)  'Subroutine  EFIELD  end' 
RETURN 
CONTINUE 
STOP 
END 


C- 

c 
c 
c 
c 

C+++ 
C+++ 
C+++ 
C+++ 


*********************** 

*   SUBROUTINE  ELMCEN   * 
*********************** 


This  subroutine  reads  in  the  geometry  data  of  the  array  elements 
and  computes  the  center  locations  of  each  element 
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SUBROUTINE  ELMCEN(XCE , YCE ,ZCE) 

PARAMETER  (NESAX=45000) 

PARAMETER  (NELSAX=270) 

REAL  XCE(NELSAX,NELSAX) , YCE(NELSAX,NELSAX) ,ZCE(NELSAX,NELSAX) 

REAL  R0T(3, 3), LAMBDA, UNITS(0:3) 

CHARACTER^IO  UNIT$(0:3) 

CHARACTER*!  ANS$ 

LOGICAL  LORTHO 

COMMON  /EANGLE/  THSZ,PHSZ,THSX,PHSX 

COMMON  /GENDAT/  C,PI,DTR,ZO 

COMMON  /NECDAT/  lUN, lUS , FREQ, LAMBDA 

COMMON  /RTDATA/  ROT ,XCAREA, YCAREA,ZCAREA 

COMMON  /XZDATA/NX,NZ,XALENG,ZALENG,A,B,IDIST 

DATA  UNITS ( 1) , UNITS ( 2 ) , UNITS ( 3 ) / 1 . 0 , 0 . 3048 , 0 . 0254/ 

DATA  UNITS/  'wavelength' , 'm         ' , ' f t        ' , ' in        '/ 

UNITS {0)=LAMBDA 

WRITE  (2,*) 

WRITE  (2,*)  'Subroutine  ELMCEN' 
C+++ 
C+++  Enter  array  element  orientation  and  compute  axes  rotation  matrix 


C+++ 


CALL  FRTCMS('CLRSCRN  ') 
10  CONTINUE 

PRINT  ^,    'Enter  Array  Element  orientation  (in  deg)  that' 

PRINT  *,  'defines  Zt  and  Xt  directions  as  used  in  NEC-BSC  code' 

PRINT  *,  'i.e.  THSZ,PHSZ,THSX,PHSX' 

PRINT  * 

READ  (5,*)  THSZ,PHSZ,THSX,PHSX 

CALL  ROTATE (LORTHO) 

IF  (LORTHO)  GOTO  20 

PRINT  * 


THSZ   =  ' ,THSZ, '  deg' 

PHSZ   =  ' ,PHSZ, '  deg' 

THSX   =  ' ,THSX, '  deg' 

PHSX   =  ' ,PHSX, '  deg' 
Axes  specified  are  not  orthogonal' 
Re-enter  the  angles' 


PRINT  * 

PRINT  * 

PRINT  * 

PRINT  * 

PRINT  * 

PRINT  * 

PRINT  * 

GOTO  10 
20  CONTINUE 

WRITE  (2,*)  '    THSZ   =  ' ,THSZ, '  deg' 

WRITE  (2,*)  '    PHSZ   =  ',PHSZ,'  deg' 

WRITE  (2,*)  '    THSX   =  ' ,THSX, '  deg' 

WRITE  (2,*)  '    PHSX   =  ',PHSX,'  deg' 
C+++ 

C+++  Enter  center  location  of  the  Array  Area  (in  Global  co-ord) 
C+++ 

CALL  FRTCMS('CLRSCRN  ') 

PRINT  * 

PRINT  *,  'Enter  center  co-ordinate  of  Array  Area  (X,Y,Z)' 

PRINT  *,  'The  unit  is  in  ' ,UNIT$(IUN) 

PRINT  * 

READ  (5,*)  XCAREA,YCAREA,ZCAREA 

WRITE  (2,*)  '    XCAREA  =  ' ,XCAREA,UNIT$ (lUN) 

WRITE  (2,*)  '    YCAREA  =  ' , YCAREA,UNIT$ (lUN) 

WRITE  (2,*)  '    ZCAREA  =  ' ,ZCAREA,UNIT$ (lUN) 
C+++ 

C+++  Enter  number  of  elements 
C+++ 


CALL  FRTCMS ( ' CLRSCRN  ' ) 
30  CONTINUE 

PRINT  *,  'Enter  No.  of  elements  along  Xt  axis' 

PRINT  * 

READ  (5,*)  NX 

IF  (NX  .GT.  NELSAX)  THEN 

PRINT  * 

PRINT  *,  'No.  of  elements  along  Xt  axis  =  ' ,NX 

PRINT  *,  'No.  of  elements  along  Xt  axis  exceeds  NELSAX' 

PRINT  *,  're-enter  the  No.  of  elements' 
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35 


PRINT  * 

GOTO  30 
END  IF 
CONTINUE 
PRINT  * 

PRINT  *,  'Enter  No.  of  elements  along  Zt  axis' 
READ  (5,*)  NZ 
IF  (NZ  .GT.  NELSAX)  THEN 

PRINT  * 

PRINT  *, 

PRINT  *, 

PRINT  *, 

PRINT  * 

GOTO  35 
END  IF 

NTOTAL=NX*NZ 
IF  (NTOTAL  .GT.  NESAX)  THEN 

PRINT  ■ 

'Total  No.  of  elements  =  ', NTOTAL 
'Total  No.  of  elements  exceeds  NESAX' 
're-enter  the  No.  of  elements' 


'No.  of  elements  along  Zt  axis  =  ' ,ZX 

'No.  of  elements  along  Zt  axis  exceeds  NELSAX' 

're-enter  the  No.  of  elements' 


C+++ 
C+++ 
C+++ 


PRINT 
PRINT 
PRINT 
PRINT 
GOTO  30 

END  IF 

WRITE 

WRITE 


[l>] 


NX 
NZ 


'  ,NX 
'  ,NZ 


Enter  the  size  of  element 


40  CONTINUE 

CALL  FRTCMS('CLRSCRN 

PRINT  ■ 

'Enter  the  size  of  the  element' 

'Note  that  all  elements^ are  assumed  to  have' 

'the  same  size' 


■k 
■k 

■k 
■k 
k 

(5 


C 
C 

c 
c 
c 
c 
c 
c 
c 


C+++ 
C+++ 
C+++ 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
READ 
PRINT"* 
PRINT  * 
PRINT  * 
PRINT  * 
READ  (5,*)  A 
IF  (B  .GT.  A)  THEN 
PRINT  ■ 


'Enter  the  element  length  along  Xt  axis  direction' 
'The  unit  is  in  ' ,UNIT$(IUS) 


■■)   B 


'Enter  the  element  len( 
'The  unit  is  in  ' ,UNITi 


ith  along  Zt  axis  direction' 

;(ius) 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOTO  40 
END  IF 

WRITE 

WRITE 


'THE  ELEMENT  LENGTH  =  ' , A,UNIT$ (lUS ) 

'THE  ELEMENT  WIDTH   =  ' ,B ,UNIT$ ( lUS) 

'THE  WIDTH  MUST  BE  SHORTER  THAN  THE  LENGTH' 

'RE-ENTER  ELEMENT  SIZE' 


[\>]  ' 


A 
B 


=  ' , A, unit: 
=  ',B,UNIT: 


;(ius; 
(lus, 


Check  if  TE  10  mode  exist 

ZELENG=A*UNITS ( lUS ) 

IF  (ZELENG  .LT.  LAMBDA/ 2.0)  THEN 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


'The  operating  freq  =  '.FREQ,'  GHz' 
'The  corresponding  wavelength  =  ', LAMBDA, ' 
The  length  of  array  element  =  ', ZELENG, 


m' 


m' 


'For  TE  10  mode  to  exist,  the  length  of  the  element' 
'must  be  greater  than  or  equal  to  half  wave  length' 
'Re-enter  element  size' 
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C+++ 
C+++ 
C+++ 


C+++ 
C+++ 
C+++ 


C+++ 

C+++ 
C+++ 

cxxx 
cxxx 


GOTO  40 
END  IF 

Convert  the  element  lengths  to  the  geometry  units 


XELENG=B*UNITS ( lUS ) /UNITS ( lUN) 
ZELENG=A*UNITS ( lUS ) /UNITS ( lUN) 
WRITE  (2,*)  '    XELENG  =  ' ,XELENG,UNIT$(IUN) 
WRITE  (2,*)  '    ZELENG  =  ' ,ZELENG,UNIT$ (lUN) 


Enter  gap  size  between  elements 


CALL  FRTCMS( ' CLRSCRN  ' ) 

PRINT  *,  'Enter  the  gap  size  between  elements  in  Xt  direction' 
The  unit  is  in  ' ,UNIT$(IUS) 


,*)  XGAP 

Enter  the  gap  size  between  elements  in  Zt  direction' 
The  unit  is  m  ' ,UNIT$(IUS) 


PRINT  *, 

PRINT  * 

READ  (5, 

PRINT  * 

PRINT  *, 

PRINT  *, 

PRINT  * 

READ  (5,*)  ZGAP 

XGAP1=XGAP*UNITS ( lUS ) /UNITS ( lUN) 

ZGAP1=ZGAP*UNITS(IUS) /UNITS (lUN) 

XESPAC=XGAP1+XELENG 

ZESPAC=ZGAP1+ZELENG 

XALENG=XESPAC'^REAL  (NX+1 ) 

IF  (NX  .EQ.  1)  XALENG=XELENG 

ZALENG=ZESPAC*REAL (NZ+1 ) 

IF  (NZ  .EQ.  I)  ZALENG=ZELENG 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 


2'i 
2'i 


XGAP 
ZGAP 

XESPAC  = 
ZESPAC  = 
XALENG" = 
ZALENG  = 


,XGAP,UNIT$(IUS) 
, ZGAP, UNITS (lUS) 
, XESPAC, UNITS (IUN; 
, ZESPAC, UNITS (lUN 
, XALENG, UNITS (lUN 
, ZALENG, UNITS (IUN; 


Determine  the  center  locations  of  each  element  in  Xt-Zt  plane 

WRITE  (2,*)  '         I  J       XCE' , 

ZCE' 


* '  YCE 

DO  70  1=1, NZ 

Z=-1.0*ZALENG/2.0+I*ZESPAC 
IF  (NZ  ,EQ.  1)  Z=0.0 
DO  60  J=1,NX 

X=- 1 . 0'^XALENG/2  . 0+ J*XESPAC 
IF  (NX  .EQ.  1)  X=0.0 
XCE(I,J)=X 
YCE(I,J)=0.0 
ZCE(I,J)=Z 
CXXX        WRITE  (2,*)  I,J,XCE(I,J),YCE(I,J),ZCE(I,J) 
60    CONTINUE 
70  CONTINUE 

WRITE  (2,*) 

RETURN 

END 


Subroutine  ELMCEN  end' 


C+++ 
C+++ 


*   SUBROUTINE  NECCMD   * 

SUBROUTINE  NECCMD 

REAL  LAMBDA 

C0MI40N  /GENDAT/  C,PI,DTR,ZO 

COMMON  /NECDAT/  IUN, lUS , FREQ,LAMBDA 

WRITE  (2,*) 

WRITE  (2,*)  'Subroutine  NECCMD' 

The  following  NEC-BSC  commands  are  needed  to  determine 
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C+++ 
C+++ 
C+++ 


c- 

c 

c 

c 

c 

C+++ 
C+++ 
C+++ 


the  units  used  by  the  whole  data  set 

They  should  be  consistance  with  the  rest  of  the  data 


CALL  FRTCMSCCLRSCRN  ') 

PRINT  *,  'Enter  the  following  NEC-BSC  commands' 

UN,  US,  FR' 

where  UN  and  US  are  integers' 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


READ  (5 
LAMBDA=C/FREQ 


UN 
UN 
UN 

US 
US 
US 
US 


unit  in  m^ 

unit  in  ft' 

unit  in  in' 

unit  in  wavelength' 
unit  in  m' 
unit  in  ft' 
unit  in  in' 


FR  is  frequency  in  GHz 
■^)    IUN,IUS,FREQ 


WRITE 

WRITE 

WRITE 

WRITE 

RETURN 

END 


2'* 
2'i 
2't 


lUN  =  MUN,  '    lUS  =  ' 
'    FREQ   =  ' , FREQ , '  GHz ' 
'    LAMBDA  =  ' , LAMBDA , '  m ' 
'Subroutine  NECCMD  end' 


lUS 


C??? 

c??? 
c??? 
c??? 
c??? 
c??? 
c??? 


*  SUBROUTINE   ROTATE      * 

*  *  *  :»c  *  X  A  *  :it  A  A  Tie  7t  A  5^:  7^  A  :*:  5ic  A  *  *  * 

This  subroutine  computes  the  axes  rotation  matrix 

SUBROUTINE  ROTATE (LORTHO) 

REAL  ROT (3, 3) 

LOGICAL  LORTHO 

COMMON  /EANGLE/  THSZ,PHSZ ,THSX,PHSX 

COMMON  /GENDAT/  C,PI,DTR,ZO 

COMMON  /RTDATA/  ROT ,XCAREA, YCAREA,ZCAREA 

LORTHO=.TRUE. 


WRITE  (2,*' 


\l?] 


Subroutine  ROTATE 


WRITE  (2,* 
THZ=THSZ^DtR 
THX=THSX*DTR 
PHZ=PHSZ*DTR 
PHX=PHSX*DTR 

R0T(1,1)=C0S(PHX)*SIN(THX) 
R0T(2,l)=SIN(PHX)*SIN(THX) 
R0T(3,l)=C0S(THX) 
R0T(1,3)=C0S(PHZ)*SIN(THZ) 
ROT(2,3)=SIN(PHZ)*SIN(THZ) 
ROT (3  3)=C0S(THZ) 

Dl=ROT(l,3)*ROT(l,l)+ROT(2,3)*ROT(2,l)+ROT(3,3)*ROT(3,l) 
IF  (ABS(Dl)  .GT.  0.1)  GOTO  10 
R0T(1,1)=R0T(1,1)-R0T(1,3)*D1 
ROT ( 2 , 1 ) =ROT ( 2 , I ) - ROT ( 2 , 3 ) *D 1 
ROT ( 3 , I ) =ROT ( 3 , 1 ) -ROT ( 3 , 3 ) *D1 

D2=SQRT(ROT(l,l)*ROT(l,l)+ROT(2,l)*ROT(2,l)+ROT(3,l)*ROT(3,l)) 
R0T(1,1)=R0T(1,1)/D2 
ROT(2,l)=ROT(2,l)/D2 
ROT(3,l)=ROT(3,l)/D2 
ROT(l,2)=ROT(2,3)*ROT(3,l)-ROT( 
2 ) =ROT (1,1) *ROT ( 3 , 3 ) -ROT ( 
2 ) =ROT (1,3) *ROT (2,1)- ROT (2,3) *ROT i 
2,^)     'AXIS  ROTATION  MATRIX' 
'2,*)  ROT (1,1) , ROT (1,2), ROT (1,3 
'2,*)  ROT (2,1), ROT (2, 2), ROT (2, 3' 
2,*)    ROT(3,l),ROT(3,2),ROT(3,3' 


ROT  (2 
ROT  (3 

WRITE 
WRITE 
WRITE 
WRITE 


■3,3)*ROT 
'1,3)*R0T 
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WRITE  (2,*)  'Subroutine  ROTATE  end' 
RETURN 
10  CONTINUE 

LORTHO= . FALSE . 

WRITE  (2,*)  'Subroutine  ROTATE  end' 

RETURN 

END 


C 
C 

c 
c 
c 

C+++ 
C+++ 
C+++ 


c 
c 
c 
c 
c 

C+++ 
C+++ 
C+++ 


*   SUBROUTINE  ROTRAN   * 

kkkkkkkkkkkkkkkkkk-kkkkk 

This  subroutine  rotates  and  translate  co-ordinates 

SUBROUTINE  ROTRAN (X,Y,Z) 

PARAMETER  (NELSAX=270) 

REAL  X(NELSAX,NELSAX) , Y(NELSAX,NELSAX) ,Z(NELSAX,NELSAX) ,R0T(3,3) 

COMMON  /RTDATA/  ROT , XCAREA , YCAREA , ZCAREA 

COMMON  /XZDATA/  NX,NZ,XALENG,ZALENG, A,B , IDIST 

DO  20  1=1, NZ 

DO  10  J=1,NX 
X1=X(I,J) 
Y1=Y(I,J) 
Z1=Z(I,J) 

X ( I , J ) =ROT (1,1) *X1+R0T ( 1 , 2 ) *Y1 +ROT (1,3) *Z1 +XCAREA 
Y  ( I ,  J )  =ROT  (2,1)  *X1+R0T  (2,2)  *Y1+R0T  (2,3)  '*^Z1+YCAREA 
Z(I,J)=R0T(3,1)*X1+R0T(3,2)*Y1+R0T(3,3)'^Z1+ZCAREA 
10    CONTINUE 
20  CONTINUE 

RETURN 

END 


•k-kkk-k-kkkkkkk-k-kkk-k-kkk-kk 

*     SUBROUTINE  TAPER  '  * 

kkkkkkkkkkkkkkkkkkkkkk 


This  subroutine  computes  the  distribution  in  Xt  or  Zt  axis 

SUBROUTINE  TAPER ( ITAP , XZ$ , AMP , CENTER) 

PARAMETER  (NESAX=45000 ) 

PARAMETER  (NELSAX=270) 

REAL  AMP(NELSAX) ,CE(NELSAX) ,CENTER(NELSAX,NELSAX) 

CHARACTER^l  XZ$ 

COMMON  /GENDAT/  C,PI,DTR,ZO 

COMMON  /XZDATA/  NX,NZ ,XALENG,ZALENG, A,B , IDIST 

AMPMAX=0.0 

IF  (XZ$  .EQ.  'X')  THEN 

N=NX 

ALENG=XALENG 

DO  10  1=1, NX 

CE(I)=CENTER(1,I) 
10     CONTINUE 
ELSE 

N=NZ 

ALENG=ZALENG 

DO  20  1=1, NZ 

CE(I)=CENTER(I,1) 
20     CONTINUE 

,EQ.  2)  GOTO  40 


C+++ 
C+++ 
C+++ 

END  IF 

IF  (ITAP  .EQ.  1 
IF  (ITAP  .EQ. .3) 
IF  (ITAP  .EQ.  4) 

Uniform  tapering 

.OR.  ITAP 
GOTO  50 
GOTO  60 

DO  30  1=1, N 
AMP(I)=1.0 
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30  CONTINUE 
RETURN 
C+++ 

C+++  Cosine  and  cosine  square  tapering 
C+++ 

40  CONTINUE 
J=ITAP 
DO  45  1=1, N 

AMP(I)=COS(CE(I)/ALENG*PI)**J 
IF  (AMPMAX  .LT.  AMP (I))  AMPMAX=AMP ( I ) 
45  CONTINUE 
GOTO  70 
C+++ 

C+++  Triangular  tapering 
C+++ 

50  CONTINUE 

DO  55  1=1, N 

AMP(I)=1-2.0*ABS(CE(I))/ALENG 
IF  (AMPMAX  .LT.  AMP(I))  AMPMAX=AMP ( I ) 
55  CONTINUE 
GOTO  70 
C+++ 

C+++  Binomial  tapering 
C+++ 

60  CONTINUE 

DO  66  1=0, N-1 
COEFF=1.0 

IF  (I  .EQ.  0  .OR.  I  .EQ.  N-1)  GOTO  64 
DO  62  J=1,I 

C0EFF=C0EFF*(N-1-J+1)/J 
62    CONTINUE 
64    CONTINUE 

IF  (AMPMAX  .LT.  COEFF)  AMPMAX=COEFF 
AMP(I+1)=C0EFF 
66  CONTINUE 
C+++ 

C+++  Normalization 
C+++ 

70  CONTINUE 

DO  80  1=1, N 

AMP ( I ) =AMP ( I ) / AMPMAX 
80  CONTINUE 
RETURN 
END 


*********************** 

*   SUBROUTINE  TAPSEL   * 
*********************** 


C 

c 
c 
c 

C+++ 

C+++  This  subroutine  selects  the  Xt  and  Zt  axis  tapering  type 

C+++  and  the  tapering  pedestal  height 

C+++ 

SUBROUTINE  TAPSEL ( IXTAP , IZTAP , AMPPED ) 

WRITE  (2,'^) 

WRITE  (2,*)  'Subroutine  TAPSEL' 
10  CONTINUE 

CALL  FRTCMSCCLRSCRN  ') 

PRINT  *,  'Select  one  of  the  tapering  type  in  Xt  direction' 

PRINT  * 

PRINT  *,  '0)  Uniform' 

PRINT  *,  'l)  Cosine' 

PRINT  *,  '2)  Cosine  square' 

PRINT  *,  '3)  Triangular' 

PRINT  *,  '4)  Binomial' 

PRINT  * 

PRINT  *,  'Enter  the  number  before  the  tapering  type' 

PRINT  * 

READ  (5, ' (II)' )  IXTAP 
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20 


IF  (IXTAP  .LT.  0  .OR.  IXTAP  .GT.  4)  GOTO  10 
CONTINUE 
PRINT  * 


C 

c 
c 
c 
c 

C+++ 
C+++ 
C+++ 
C+++ 


PRINT  * 
PRINT  *, 
PRINT  * 
PRINT  *, 
PRINT  *, 
PRINT  *, 
PRINT  *, 
PRINT  * 
PRINT  * 
PRINT  * 


'Select  one  of  the  tapering  type  in  Zt  direction 


Uniform 
Cosine ' 
Cosine  square' 
Triangular' 
Binomial' 


PRINT  * 

PRINT  *,  'Enter  the  number  before  the  tapering  type' 

PRINT  * 

READ  (5, ' (II)')  IZTAP 

IF  (IZTAP  .LT.  0  .OR.  IZTAP  .GT.  4)  GOTO  20 

CALL  FRTCMS( ' CLRSCRN  ' ) 

PRINT  *,    'Enter  pedestal  height  relative  to  max  amplitude' 

PRINT  *,    'Enter  0.0  if  no  pedestal  is  needed' 

PRINT  * 


READ  (5,*)  AMPPED 
WRITE  (2>)  '    I 


WRITE 

WRITE 

WRITE 

WRITE 

RETURN 

END 


IXTAP   =  ' , IXTAP 
IZTAP   =  ' , IZTAP 
'    AMPPED  =  ' , AMPPED 
'Subroutine  TAPSEL  end' 


^      SUBROUTINE  WRITED   * 

This  subroutine  writes  the  output  data  in  the  format 
set  by  NEC-BSC  code 

SUBROUTINE  WRITED (XCE ,YCE ,ZCE ,E) 

PARAMETER  (NESAX=45000) 

PARAMETER  (NELSAX=270) 

REAL  XCE(NELSAX,NELSAX) , YCE(NELSAX,NELSAX) ,ZCE(NELSAX,NELSAX) 

REAL  E(NELSAX,NELSAX),ROT(3,3) 

COMMON  /EANGLE/  THSZ , PHSZ ,THSX,PHSX 

COMMON  /RTDATA/  ROT,XCAREA, YCAREA,ZCAREA 

COMMON  /XZDATA/  NX,NZ,XALENG,ZALENG, A,B, IDIST 

NTOTAL=NX*NZ 

WRITE  (1,1000)  NTOTAL 

CALL  ROTRAN(XCE,YCE,ZCE) 

DO  20  1=1, NZ 

DO  10  J=1,NX 

WRITE  (1,1010)  XCE(I,J),YCE(I,J),ZCE(I,J) 
10     CONTINUE 
20  CONTINUE 

WRITE  (1,1020)  THSZ, PHSZ, THSX,PHSX 

IF  (IDIST  .EQ.  0)  IMS=1 

IF  (IDIST  .EQ.  1)  IMS=3 

WRITE  (1,1030)  IMS,A,B 

PHASE=0.0 

DO  40  1=1, NZ 

DO  30  J=1,NX 

WRITE  (1,1040)  E(I,J),PHASE 
30     CONTINUE 
40  CONTINUE 
1000  FORMAT (16) 

1010  F0RMAT(F12.7,1H, ,F12.7,1H, ,F9.4) 
1020  FORMAT (F6.1, 3 (IH, ,F6.1)) 
1030  FORMAT ( 12, IH, , F9 . 5 , IH, , F9 . 5 ) 
1040  F0RMAT(E12.6,1H, ,F6.1) 
RETURN 
END 
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APPENDIX  B 
RADIATION  PATTERN  PLOTS 


(a)   E lament   Length  =  O.sX 


i    'I        I' 


ISO  200  iiO  300 

AngU  8  Cdsg) 


»0  400 


(b)   Element   Length  =   O.JsX 


...Ji 


I      -70- 

-♦a-l 

•100-1 

-iw-j 
-no-'- 


I9C  209  »ll 


(c)  Element  Length  =  l.OA 


Figure  B.l     Element  Width  =  0.25X,  Element  Length  Variable, 
Z  Spacing  =  l.OX  and  X^  Spacing  =  0.5X. 


Ill 


190  WS  MO  100 

AngU  8  U»9} 


390 


(a)  Element  Length  =  O.sk 


(b)  Element  Length  =  0.75X 


too  390  900  330 


(c)  Element  Length  =  O.SA. 


Figure  B.2     Elemeni  Width  =  0.25?^,  Element  Length  Variable, 

Xj  Spacing  =  0.5X,  Z^  Spacing  =  0.75X  for  (a)  &  (b) 

and  Z^  Spacing  =  0.5)t  for  (c). 
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K«     WO     200     234     9M     U« 


(a)  Element  Width  =  O.sX 


lao  200  230  900  TM  400 

Angle  S  (d>g) 


(b)  Element  Width  =  0.375X 


wo  100  200  250  200  >»0  400 


(c)  Element  Width  =  O.ZsX 


Figure  B.3     Element  Width  =  0.75X,  Element  Width  Variable, 
X^  Spacing  =  0.75X,  Z^  Spacing  =  0.75X. 
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-no-r- 

0 


(a) 


wo  190  100  390  300 

Elemsnt  Hidth  =   0.375A. 


W  400 


aA 


M, 


50  lOO  ISO  :00  330  100 

AnjI*  6  U>9) 

(b)   Element  Hidth   =   O.ZSk 


Figure  B.4    Element  Width  =  0.75X,  Element  Width  Variable, 
Xj  Spacing  =  0.5X  and  Z^  Spacing  =  0.75X. 


:S0  300  390  100 


(a)  Element  Width  =  0..375X 
X  Spacing  =  0.375/, 


(b)  Element  Width  =  9.25^ 
X  Spacing  =  0.25A, 


Figure  B.5     Element  Width  =  0.75X,  Element  V/idth  Variable, 
Xj  Spacing  Variable  and  Z^  Spacing  =  0.151.. 
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ISO  100  no  900 

Angl*  B  Cd*g) 

(a)   Element  Size   =   O.TsX   x  O.nsk 
No.    of  Elements   =   10  x   10 


ISO  200  )>9  iCO 

AngI*  6  (dvg) 

(c)  Element  Size  =  O.sX   x  0.375X. 
No.  of  Elements  =  IS  x  10 


190  ]00  :3S  300 

AngU  8  Usg) 


(b)  Element  Size  =  0.75^  x  O.Zsk 
No.  of  Elements  =  10  x  15 


300  390 


190  300  399 

AngI*  8  Utg) 

(d)  Element  Size  =  O.sX  x  O.ZsX 
No.  of  Elements  =  15  x  15 


Figure  B.6    Vertical  Cut  at  (p  =  0°  with  Fixed  Array  Area  of 
7.5X  X  3.75X.   Uniform  Tapering  in  both  Directions. 
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Angl*     6  Cd*g} 

(a)  Element  Size  =  0.75X  x  O.ZTsk 
No.  of  Elements  =  10  x  10 


(b)  Element  Size  =  0.75^  x  0.25X 
No.  of  Elements  =  10  x  15 


%# 


150  ]00  390  )S0  IM 

Element  Size   =   O.sX   x  0.375X 
No.    of   Elements   =    15  x   10 


Iftrij  m^ 


(c) 


0  >o         100         190        no        350        )e9        ise 

AngI*  fi  U»gi> 

(d)   Element  Size   =   0.5^   x  O.ZsX 
No.    of    Elements    =    15   x    15 


Figure  B.7    Vertical  Cut  at  (p  =  90°  with  Fixed  Array  .^rea  of 
1.5k  X  3.75X.   Uniform  Tapering  in  both  Directions. 


iI6 


IM  130     200     }9»     100     i>»  400 


(a)  Element  Size  =  0.75^  x  0.375X 
No.  of  Elements  =  10  x  10 


190  ]00  390 


190  iZ3  330 


]»o         )»0 


(b)  Element  Size  =  0.75^  x  O.ZsX 
No.  of  Elements  =  10  x  15 


100     ISO     ]00     390     300     190 


(c)  Element  Size  =  0.5/.  x  0.375A. 
No.  of  Elements  =  15  x  10 


(d)  Element  Size  =  O.5X  x  0.25^ 
No.  of  Elements  =  15  x  15 


Figure  B.8    Vertical  Cut  at  (p  =  0"  with  Fixed  Array  Area  of 
7.5X  X  3.75X.   Cosine  Tapering  in  both  Directions. 


117 


•tM- 


1S0  no  390 

AngI*  9  Cdcg} 


lao        200        ]jo 
AngI*  6  Co«g3 


(a) 


Element  Size  =  0.75X  x  0.375X 
No.    of   Elements   =   10  x   10 


(b)   Element  Size   =   0.75k  x  O.ZsX 
No.    of   Elements    =    10  x   15 


]00  390 

e  (<i»g} 

(c)  Element  Size  =  O.SA.  x  0.375X 
No.  of  Elements  =  15  x  10 


'"%«'# 
W 


190 
Angia 


300  390 


(d)  Element  Size  =  O.sX  x  O.ZsX 
No.  of  Elements  =  15  x  IS 


Figure  B.9    Vertical  Cut  at  (p  =  90°  with  Fixed  Array  Area  of 
1.51.  X  3.75X.   Cosine  Tapering  in  both  Directions. 
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n       10       «9      100      no 

A/tgl*  6  (e*g) 


n«        I3«       KO 


(a)  Vertical  Cut  Far  Field  Plot 
at  <p  =  90© 


4    -«- 


-10- 

-»0- 

-100- 


130 
Ajigl* 


200  310 

8  Cd>g} 


100  390 


(c) 


Vertical  Cut  h4ear   Field  Plot 
at  (p   =   90  o 


-1004- 


4i  to  «0  70  10^        »0  100  1)0  BO         UO         MO 

Angle  if  Cdvg] 

(b)  Horizontal  Cut  Far  Field  Plot 
at  9  =  90O 


.13. 
.90- 


0  90  100  190  100  390  :oo 

Angle  If  U»g} 

(d)  Horizontal  Cut  Near  Field 
at  0  =  90O 


Plot 


Figure  B.IO    Far  Field  and  Near  Field  Plots  with  Uniform  Tapering. 
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n     -M- 


-M 


(a) 


100       no 


Vertical  Cut   Far   Field  Plot 
at  (p   =   90° 


49  M  M 


70  M 

AngI* 


*«        ISO       rw 
P  (d»g) 


ce         130        MO 


(b)  Horizontal  Cut  Far  Field  Plot 
at  9  =  90O 


(c)  Vertical  Cut  Near  Field  Plot 
at  (p  =  90  o 


150  100  1)9 

AngI*  <f  Cd*g) 


ISO  40b 


(d)  Horizontal  Cut  Near  Field  Plot 
at  0  =  90  0 


Figure  B.l  1     Far  Field  and  Near  Field  Plots  with  Cosine  Tapering. 
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(a) 


fo       ISO       no 
6  (a»9} 


Vertical  Cut   Far   Field  Plot 
at  (p   =   90° 


70  10 

Angia 


10       100       no 
7  id»g) 


no      130      140 


(b)  Horizontal  Cut  Far  Field  Plot 
at  0  =  90© 


lao        200        :>o 
AngI*  9  tdmg) 

(c)  Vertical  Cut  Near  Field  Plot 
at  (p  =  90© 


}0C 


3>0 


100     300     3M 

(d)  Horizontal  Cut  Near  Field  Plot 
at  6  =  90O 


Figure  B.12     Far  Field  and  Near  Field  Plots  with  Cosine  Square  Tapering. 
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40         «0         M 


70       10       «o       lea       lie 
An9l«  6  Cd*93 


!3«      i)«      ue 


-to -I 


70  10  «0  100         110 

Angl«  If  (d»g} 


(a)  Vertical  Cut  Far  Field  Plot 
at  (p  =  90 « 


(b)  Horizontal  Cut  Far  Field  Plot 
at  6  =  90O 


lao  }0O  390 

Anaia  6  Cd*g) 


(c)  Vertical  Cut  Near  Field  Plot 
at  (p  =  90° 


(d)  Horizontal  Cut  Near  Field  Plot 
at  0  =  90O 


Figure  B.13     Far  Field  and  Near  Field  Plots  with  Triangular  Tapering. 
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70    to 

An?:* 


«o   100   no 
6  U>9} 


(a) 


Vertical  Cut  Far  Field  Plot 
at  (p  =  90O 


-1094- 
0 


(c) 


ISO 
Angia 


100  :30         ]00 

6  (dvg; 


Vertical  Cut  Near  Field  Plot 
at  (p  =  90  o 


(d)  Horizontal  Cut  Near  Field  Plot 
at  0  =  90O 


Figure  B.14     Far  Field  and  Near  Field  Plots  with  Binomial  Tapering. 
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70       to       M       100       no 
Angla  <f  (d»g) 

(a)  Far  Field  Horizontal  Cut 
at  0  =  90O 


no      110      i4« 


wo  100  MO 

AngI*  y  U*g) 

(b)   Near   Field  Horizontal  Cut 
at   0    =   90° 


Figure  B.15     Uniformly  Tapered  Linear  TEjq  Array  with 
20  Elements  of  Sizes  0.5X  x  0,25X  each.- 
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40  00  to 


(a)    Far 


70       10       to       100      no 

Angle  If  U*^} 

Field  Horizontal  Cut 
at  O  =  90" 


190  100  »9 

Angia  if  Cdcg} 

(b)  Near  Field  Horizontal  Cut 
at  0  =  90O 


Figure  B.16    Single  UniformJy  Distributed  Slot  Antenna  with  Size 

lO.OX  .\  0.25X. 
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40       w       M       n       *B       *<      <°v      <i9      <3"      <'°      1^ 
Angle  <f  Uvg} 

(a)  Far  Field  Horizontal  Cut 
at  G  =  90O 


Angle     7  Cdvg) 

(b)  Near  Field  Horizontal  Cut 
at  0  =  90° 


Figure  B.17    Cosine  Tapered  Linear  TEjq  Array  with 
20  Elements  of  Sizes  0.5X  x  0.25X  each. 
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Angia  <t  '-dcg} 

(a)  Far  Field  Horizontal  Cut 
at  0  =  900 


to  wo  130  300  390  100  1)0  400 

Angi*  (P  (<J»9) 

(b)  Near  Field  Horizontal  Cut 
at  0  =  90 o 


Figure  B.18     Single  TEj^  Mode  Slot  Antenna  with  Size  10.5X  x  0.25X  each. 
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Figure  B.19     Cosine  Tapered  Linear  Array  with  20  Unifornily  Distributed 
Elements  of  Sizes  0.5X  x  0.25^  each. 
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Figure  B.20     Far  Field  Patterns  of  Simplified  Model  with 
Uniformly  Distributed  Elements  and  Triangular  Tapering. 
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Figure  B.21     Near  Field  Patterns  of  Simplified  Model  with 
Uniformly  Distributed  Elements  and  Triangular  Tapering,   r  =  3.5m. 
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Figure  B.22     Near  Field  Radiation  Patterns  of  Uniform  -  Uniform  Tapered  Array. 
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Figure  B.23     Near  Field  Radiation  Patterns  of  Cosine  -  Uniform  Tapered  Array. 
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Figure  B.24    Near  Field  Radiation  Patterns  of  Uniform  -  Cosine  Tapered  Array. 
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Figure  B.25     Far  Field  Radiation  Patterns  of  Array  using 
Uniform  -  Cosine  Tapering  with  Reflector  Plate  Tilted  at  45°. 
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Figure  B.26     Far  Field  Radiation  Patterns  of  Array  using 
Uniform  -  Cosine  Tapering  with  Reflector  Plate  Tilted  al  22.5' 
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Figure  B.27     Far  Field  Radiation  Patterns  of  the  Full  System  Model 
with  Reflector  Plate  Tilted  at  45°. 


Figure  B.28     Far  Field  Pvadiation  Patterns  of  the  Full  System  Model 
with  Reflector  Plate  Tilted  at  22.5°. 
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figure  B.29    Near  Field  Radiation  Patterns  of  Full  Model  with  Reflector  Plate 

Facing  (p  =  0°  and  Tilted  at  45^ 
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Figure  B.30    Near  Field  Radiation  Patterns  of  Full  Model  with  Reflector  Plate 

Facing  (p  =  0°  and  Tilted  at  22.5°. 
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Figure  B.3i     Near  Field  Radiation  Pauerns  of  Full  Model  with  Reflector  Plate 

Facing  (p  =  45°  and  Tilted  at  45°. 
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Figure  B.32    Near  Field  Radiation  Patterns  of  Full  Model  with  Reflector  Plate 

Facing  (p  =  90°  and  Tilted  at  45^ 
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APPENDIX  C 

DERIVATION  OF  GAIN  AND  MAXIMUM  APERTURE  E-FIELD 
RELATIONSHIPS  BETWEEN  ACTUAL  AND  SIMPLIFIED  MODELS 

The  derivation  of  the  gain  and  maximum  aperture  E-field  relationships  between 
the  actual  linear  array  using  either  Uniform  or  Cosine  (TE^g)  distribution  elements  and 
those  simplified  single  element  models  of  equivalent  length  are  shown  in  this  appendix. 
Based  on  the  different  configurations  of  the  array  elements,  we  subdivide  them  into  3 
sections,  namely, 

•  Uniformly  tapering  TE^q  linear  array  vs  single  uniformly  distributed  slot 
antenna. 

•  Cosine  tapering  TEjq  linear  array  vs  single  TE^g  slot  antenna. 

•  Cosine    tapering    uniformly    distributed    linear   array    vs    single    TE^g    slot 
antenna. 

For  the  case  when  the  array  is  formed  by  uniformly  tapered  uniformly  distributed 
element,  the  simplified  model  of  single  uniformly  distributed  aperture  will  yield  exact 
solution  and  hence  no  derivation  is  needed. 

I.        UNIFORMLY  TAPERED  TEIO  LINEAR  ARRAY  VS  SINGLE  UNIFORMLY 
DISTRIBUTED  SLOT  ANTENNA 

a.  Comparing  Maximum  Aperture  E-Field 

For  single  Uniform  Aperture, 

P.  =£u!iu^ 

in  y 

Where  E^'  and  a^^'  are  the  maximum  field  strength  and  the  length  of  the  uniform 
aperture  respectively,    b  is  the  width  of  each  element  and  it  is  the  same  for  both  the 
actual  array  and  the  simplified  model.   Zg  is  the  intrinsic  impedence. 
As  for  the  20  elements  uniformly  tapered  linear  area,  we  have 


Pi„  = 


NE  ^a  b 

C        C 

«0 
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for  E    and  a    are  the  maximum  field  strength  and  the  length  of  each  element  of  the 

C  C  o  w 

Cosine  distributed  (TE^g)  aperture  respectively.    With  the   same  input  power  and 
a^'  =  Na^,  we  have, 

E    =  2E 

Hence,  the  simplified  model  gives  only  half  the  field  strength  of  the  actual 
array. 

b.  Comparing  Gain 

The  boresight  far  field  field  strength  of  an  uniformly  distributed  aperture  can 
easily  be  obtained  from  the  available  literature  [Refs.  5,6], 

IE',J  =  -^>'"''-- 


abi 


rX 


where  r  is  the  far  field  distance  and  X,  is  the  wavelength.  The  boresight  far  field  field 
strength  of  a  TEjq  mode  rectangular  aperture  on  the  other  hand,  can  be  derived  from 
the  two-dimensional  Fourier  transform  of  the  aperture  field  given  by  [Ref  5] 

.b/2    .  a  /2  „A 

Px  =  0  •  Py  =  J        1  Eu  exp{jPr.r')  dx/  dz/ 

^  y  -b/2     -a  /2       "  ^         ' 

c 

where  r  is  the  unit  vector  in  the  direction  of  propagation  and  r'  is  the  vector  pointing 
towards  the  aperture.    The  boresight  far  field  field  strength  from  one  element  is  then 
found  to  be  equal  to 

2E  ab 
c 


Assuming  that  the  distance  r  is  so  far  that  all  fields  arriving  at  that  point  from 
all  the  N  elements  are  in  phase,  we  then  have 

2NE  a  b 

Hence,  the  gain  ratio  between  the  two  models  is 
IE.  I  2NEa, 

'    cb'        _   c   c 

IE'  .1  kE'  a' 

'      ub'  u     u 
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Since  E^^  =  II2E^  and  a^^  =  Na^,  assuming  both  apertures  are  fed  with  the  same  input 
power 

lEobl      _     -^ 


iE'ubl  "^ 

This  means  that  the  gain  of  the  actual  array  is  about  2.098  dB  higher  than  that  of  the 
simplified  model. 

2.        COSINE    TAPERED    TEIO    LINEAR    ARRAY    VS    SINGLE    TEIO    SLOT 

ANTENNA 

a.  Comparing  Maximum  Aperture  E-Field 

The  maximum  aperture  E-field  of  a  single  TE^g  slot  antenna  with  length  a'^  is 
given  by, 

E'  2  _  0    in 

a^b 

while  that  of  a  Cosine  tapered  TE^g  linear  array  is 

->               4ZnP.„      • 
p  2  _  0    in 


a^bV  E^2(j^) 


where  Ej.(n)  is  the  relative  E-field  of  the  n^  element  with  maximum  relative  E-field 
equal  to  unity.  Since  Cosine  tapering  is  used,  the  relative  E-field  may  be  expressed  in 
terms  of  n  as  follow  : 

nTi 

E  (n)  =  sin 


N+1 
and  the  total  sum  over  N  elements  is 


tE>)  = 


N+1 


n^l    ^  2 

Therefore,  the  maximum  aperture  E-field  is  expressed  as, 

p  2  _  0    in 

a^b(N+l)  ■ 
The  ratio  of  the  maximum  aperture  E-field  for  the  same  input  power  is 
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Ec       _      V(2a;) 
E;  VK{N+1)] 

By  equating  a'^  =  (N+  l)a^,  we  have 

E^  =  V2  X  E'     . 
c        ^  c 

The  actual  array  maximum  aperture  E-field  is  equal  to  that  of  the  simplified  model 
multiplied  by  V2. 

b.  Comparing  Gain 

As  derived  before,  the  boresight  far  field  field  strength  of  the  single  TEjq 
aperture  antenna  with  length  a^'  is  given  by 

2  E' a' b 

IE'    I  =  c__c 

For  a  Cosine  tapered  TE^q  linear  array  with  far  field  distance  r  long  enough 
to  guarantee  in-phase  E-field  addition,  we  have 

2a  bE 


2a^bE^  sin[7t/{N+l)] 


TtrX  1  -  cos[7t;(N+l)] 

2a  bE^ 
'-r^  cot{7r/[2(N+l)]}   . 


Hence,  the  gain  ratio  is, 

-[|^  =  -^cot{7r/[2(N+l)]}   . 
From  above,  we  have  E^  =  -y/2  x  E' ,  for  a'    =  (N+  l)a  . 


lEcbl     _      V2 


lE'cbl  N+1 


cot{7t/[2(N+l)]}   . 


Table  4  shows  the  gain  ratio  as  N  varies. 

From  the  table,  it  shows  that  for  N   >    8,  the  boresight  gain  difference  is 
reduced  to  1  dB  or  less. 
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TABLE  4 

GAIN  RATIO  BETWEEN  COSINE  TAPERED  TEIO  LINEAR  ARRAY  AND  SINGLE  TEIO 

SLOT  ANTENNA 

N 

Ratio 

Difference  in  dB 

2 

0.8165 

-1.7610 

5 

0.8797 

-1.1138 

8 

0.8912 

-1.0009 

10 

0.8942 

-0.9714 

20 

0.8986 

-0.9283 

50 

0.9000 

-0.9148 

100 

0.9002 

-0.9128 

200 

0.9003 

-0.9123 

3.        COSINE   TAPERED    UNIFORMLY   DISTRIBUTED    LINEAR   ARRAY   VS 
SINGLE  TEIO  SLOT  ANTENNA 

a.  Comparing  Maximum  Aperture  E-Field 

The  maximum  aperture  E-field  of  a  Cosine  tapered  uniformly  distributed  linear 
array  with  element  length  a^'  can  be  expressed  as  follows: 


Eu^  = 


0    in 


i,b|^E^2(^) 


2Zn  P- 

0     in 


a  b(N+l) 


and  the  maximum  aperture  E-field  of  a  single  TE.f,  slot  antenna  is 


p  2  _  0    in 


a;b 


Hence,  the  maximum  aperture  E-field  ratio  is, 


u    _ 


Va' 


E;  V[2aJN+l)] 
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By  letting  a'^  =  aJN+1), 


Eu    _      1 


b.  Comparing  Gain 

The  boresight  far  field  field  strength  of  a  single  element  uniformly  distributed 
aperture  is, 


rX 
as  given  before.  With  N  Cosine  tapered  elements,  the  far  field  field  strength  is 

IE     I  =  — ^^-^ —    >    E  (n^ 

E  a  b 

-  — y-^L-cot  {7r/[2(N+l)]}    , 


assuming  r  is  large  enough  to  guarantee  in-phase  E-field  addition. 

The  boresight  far  field  field  strength  of  the  single  TEjq  aperture  is, 

2E' a' b 

IE'    I  =  2_c 

Hence,  the  gain  ratio  is, 

IE    I  7iE  a 

-^^  =  ^;^M-  cot  [7r/[2{N+  1)]}   . 
IE  J  2E  ^a  ^ 

With  a'^  =  a^^(N+  1)  and  E^^  =  (1/V2)E'^,  we  have 

"^      =  — ■ cot{7r/[2(N+l)]}   . 

lE'^J  2V2(N+l) 

Table  5  shows  the  boresight  gain  ratio  as  N  varies.    It  shows  that  for  large  N, 
the  difference  in  dB  approaches  -3.01  dB. 
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TABLE  5 

GAIN  RATIO  BETWEEN  COSINE  TAPERED  UNIFORMLY  DISTRIBUTED  LINEAR 
ARRAY  AND  SINGLE  TEIO  SLOT  ANTENNA 

N 

Ratio 

Difference  in  dB 

2 

0.6413 

-3.8591 

5 

0.6909 

-3.2120 

10 

0.7023 

-3.0696 

20 

0.7058 

-3.0265 

50 

0.7069 

-3.0130 

100 

0.7070 

-3.0110 

200 

0.7071 

-3.0105 
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APPENDIX  D 
INPUT  DATA  FILE  FOR  GTD2P51 


CT  (FWRP1W1F)$ 

CE 

UN       GEOMETRY  UNIT  IN  M 

1 
US       SOURCE  UNIT  IN  WAVELENGTH 

0 
FR       FREQUENCY  IS  10.0  GHZ 

10.0 
RT       ROTATE  THE  ANTENNA  REFLECTOR 

0,0,0 

45,0,90,270 
PG       REFLECTOR  PLATE  -  FRONT  PLATE 

4,0 

1.35,0.05,-2.55 

-1.35,0.05,-2.55 

-1.35,0.05,2.55 

1.35,0.05,2.55 
PG       REFLECTOR  PLATE  -  BACK  PLATE 

4,0 

1.35,-0.05,-2.55 

1.35,-0.05,2.55 

-1.35,-0.05,2.55 

-1.35,-0.05,-2.55 
PG       REFLECTOR  PLATE  -  TOP  PLATE 

4,0 

1.35,0.05,2.55 

-1.35,0.05,2.55 

-1.35,-0.05,2.55 

1.35,-0.05,2.55 
PG       REFLECTOR  PLATE  -  BOTTOM  PLATE 

4,0 

1.35,0.05,-2.55 

1.35,-0.05,-2.55 

-1.35,-0.05,-2.55 

-1.35,0.05,-2.55 
PG       REFLECTOR  PLATE  -  LEFT  PLATE 

4,0 

1.35,0.05,-2.55 

1.35,0.05,2.55 

1.35,-0.05,2.55 

1.35,-0.05,-2.55 
PG       REFLECTOR  PLATE  -  RIGHT  PLATE 

4,0 

-1.35,0.05,-2.55 

-1.35,-0.05,-2.55 

-1.35,-0.05,2.55 

-1.35,0.05,2.55 
RT       ROTATE  THE  ARRAY  ANTENNA 

0,0,0 

0,0,90,270 
CG       PIVOT  FOR  REFLECTOR 

-1.46,0,0 

90,0,90,90 

0.14,0.14 

-0.11,90,0.11,90 
CG       PIVOT  FOR  REFLECTOR 

1.46,0,0 

90,0,90,90 

0.14,0.14 

-0.11,90,0.11,90 
CG       SIDE  SUPPORTING  CYLINDER  1 


144 


-1.84,0,-1.37 

16.314,0,106.314,0 

0.05,0.05 

-1.27,73.686,1.28,73.686 
CG       SIDE  SUPPORTING  CYLINDER  2 

1.84,0,-1.37 

16.314,180,106.314,180 

0.05,0.05 

-1.27,73.686,1.28,73.686 
CG       SIDE  SUPPORTING  CYLINDER  3 

-1.48,0.595,-1.35 

22,-90,112,-90 

0.05,0.05 

-1.34,68,1.35,100 
CG       SIDE  SUPPORTING  CYLINDER  4 

-1.48,-0.595,-1.35 

22,90,112,90 

0.05,0.05 

-1.34,68,1.35,100 
CG       SIDE  SUPPORTING  CYLINDER  5 

1.48,0.595,-1.35 

22,-90,112,-90 

0.05,0.05 

-1.34,68,1.35,100 
CG       SIDE  SUPPORTING  CYLINDER  6 

1.48,-0.595,-1.35 

22,90,112,90 

0.05,0.05 

-1.34,68,1.35,100 
PG       ARRAY  ANTENNA  GROUND  PLATE 

4,0 

2.25,1.5,-2.6 

-2.25,1.5,-2.6 

-2.25,-1.5,-2.6 

2.25,-1.5,-2.6 
PG       ARRAY  ANTENNA  SIDE  PLATE  1 

4,0 

2.25,-1.5,-2.6 

-2.25,-1.5,-2.6 

-2.25,-1.5,-3.1 

PG     '   array' ANTENNA  SIDE  PLATE  2 

4,0 

2.25,1.5,-2.6 

2.25,-1.5,-2.6 

2.25,-1.5,-3.1 

2.25,1.5,-3.1 
PG       ARRAY  ANTENNA  SIDE  PLATE  3 
■   4,0 

-2.25,1.5,-2.6 

2.25,1.5,-2.6 

2.25,1.5,-3.1 

-2.25,1.5,-3.1 
PG       ARRAY  ANTENNA  SIDE  PLATE  4 

4,0 

-2.25,-1.5,-2.6 

-2.25,1.5,-2.6 

-2.25,1.5,-3.1 

-2.25,-1.5,-3.1 
SA       ARRAY  ELEMENTS  CONFIGURATION 
133 
-0.0000003,   -0.9893153,   -2.5999 
-0.0000003,   -0.9743257,   -2.5999 
-0.0000003,   -0.9593360,   -2.5999 
-0.0000003,   -0.9443464,   -2.5999 
-0.0000003,   -0.9293568,   -2.5999 
-0.0000003,   -0.9143671,   -2.5999 
-0.0000003,   -0.8993775,   -2.5999 
-0.0000003,   -0.8843879,   -2.5999 


145 


0. 

0000003, 

-0. 

8693983, 

-2. 

5999 

0. 

0000003, 

-0. 

8544087, 

-2. 

5999 

0. 

0000003, 

-0. 

8394190, 

-2. 

5999 

0. 

0000003, 

-0. 

8244294, 

-2. 

5999 

0. 

0000003, 

-0. 

8094398, 

-2. 

5999 

0. 

0000002, 

-0. 

7944502, 

-2. 

5999 

0. 

0000002, 

-0. 

7794605, 

-2. 

5999 

0, 

0000002, 

-0. 

7644709, 

-2. 

5999 

0 

0000002, 

-0. 

7494813, 

-2. 

5999 

0. 

0000002, 

-0. 

7344916, 

-2. 

5999 

0. 

0000002, 

-0. 

7195020, 

-2. 

5999 

0. 

0000002, 

-0. 

7045124, 

-2. 

5999 

0 

0000002, 

-0. 

6895228, 

-2. 

5999 

0. 

0000002, 

-0. 

6745331, 

-2. 

5999 

0. 

0000002, 

-0. 

6595435, 

-2. 

5999 

0. 

0000002, 

-0. 

6445539, 

-2. 

5999 

0. 

0000002, 

-0. 

6295643, 

-2. 

5999 

0. 

0000002, 

-0. 

6145747, 

-2. 

5999 

0. 

0000002, 

-0. 

5995850, 

-2. 

5999 

0 

0000002, 

-0. 

5845954, 

-2. 

5999 

0 

0000002, 

-0. 

5696058, 

-2. 

5999 

0 

0000002, 

-0. 

5546162, 

-2. 

5999 

0 

0000002, 

.-0, 

5396265, 

-2. 

5999 

0 

0000002, 

-0. 

5246369, 

-2. 

5999 

0 

0000002, 

-0. 

5096473, 

-2. 

5999 

0 

0000002, 

-0, 

4946576, 

-2. 

5999 

0 

0000002, 

-0 

4796680, 

-2. 

5999 

0 

0000001, 

-0. 

4646784, 

-2. 

5999 

0 

0000001, 

-0. 

4496888, 

-2. 

5999 

0 

0000001, 

-0, 

4346991, 

-2. 

5999 

0 

0000001, 

-0. 

4197095, 

-2. 

5999 

0 

0000001, 

-0 

4047199, 

-2. 

5999 

0 

0000001, 

-0. 

3897303, 

-2. 

5999 

0 

0000001, 

-0. 

3747407, 

-2. 

5999 

0 

0000001, 

-0. 

359751U, 

-2. 

5999 

0 

0000001, 

-0 

3447614, 

-2. 

5999 

0 

0000001, 

-0. 

3297718, 

-2. 

5999 

0 

0000001, 

-0. 

3147821, 

-2. 

5999 

0 

0000001, 

-0. 

2997925, 

-2. 

5999 

0 

0000001, 

-0 

2848029, 

-2. 

5999 

0 

0000001, 

-0. 

2698132, 

-2. 

5999 

0 

0000001, 

-0 

2548236, 

-2. 

5999 

0 

0000001, 

-0 

2398340, 

-2. 

5999 

0 

0000001, 

-0 

2248444, 

-2. 

5999 

0 

0000001, 

-0 

2098548, 

-2 

5999 

0 

0000001, 

-0 

1948651, 

-2. 

5999 

0 

0000001, 

-0 

1798755, 

-2 

5999 

0 

0000001, 

-0 

1648859, 

-2. 

5999 

0 

.0000000 

,   -0 

.1498963 

,   -2 

.5999 

0 

.0000000 

,   -0 

.1349066 

,   -2 

.5999 

0 

.0000000 

,   -0 

.1199170 

,   -2 

.5999 

0 

.0000000 

,   -0 

.1049274 

,   -2 

.5999 

0 

.0000000 

,   -0 

.0899377 

,   -2 

.5999 

0 

.0000000 

,   -0 

.0749481 

,   -2 

.5999 

0 

.0000000 

,   -0 

.0599585 

,   -2 

.5999 

0 

.0000000 

,   -0 

.0449688 

,   -2 

.5999 

0 

.0000000 

,   -0 

.0299792 

,   -2 

.5999 

0 

.0000000 

,   -0 

.0149896 

,   -2 

.5999 

0 

.0000000 

0 

.0000000 

,   -2 

.5999 

0 

.0000000 

0 

.0149889 

,   -2 

.5999 

0 

.0000000 

0 

.0299788 

,   -2 

.5999 

0 

.0000000 

0 

.0449686 

,   -2 

.5999 

0 

.0000000 

0 

.0599585 

,   -2 

.5999 

0 

.0000000 

0 

.0749474 

,   -2 

.5999 

0 

.0000000 

0 

.0899372 

,   -2 

.5999 

0 

.0000000 

0 

.1049271 

,   -2 

.5999 

0 

.0000000 

0 

.1199169 

,   -2 

.5999 

0 

.0000000 

0 

.1349058 

,   -2 

.5999 

0 

.0000000 

,    0 

.1498957 

,   -2 

.5999 
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0.0000001 

0.1648855 

,   -2 

.5999 

0.0000001 

0.1798754 

,   -2 

.5999 

0.0000001 

0.1948643 

,   -2 

5999 

0.0000001 

0.2098541 

,   -2 

5999 

0.0000001 

0.2248440 

,   -2 

5999 

0.0000001 

0.2398338 

,   -2 

5999 

0.0000001 

0.2548227 

,   -2 

5999 

0.0000001 

0.2698126 

,   -2 

5999 

0.0000001 

0.2848024 

,   -2 

5999 

0.0000001 

0.2997923 

,   -2 

5999 

0.0000001 

0.3147821 

,   -2 

5999 

0.0000001 

0.3297710 

,   -2 

5999 

0.0000001 

0.3447609 

,   -2 

5999 

0.0000001 

0.3597507 

,   -2 

.5999 

0.0000001 

0.3747406 

,   -2 

5999 

0.0000001 

0.3897295 

,   -2 

5999 

0.0000001 

0.4047194 

,   -2 

5999 

0.0000001 

0.4197092 

,   -2 

5999 

0.0000001 

0.4346991 

,   -2 

5999 

0.0000001 

0.4496880 

,   -2 

5999 

0.0000001 

0.4646778 

,   -2 

5999 

0.0000002 

0.4796677 

,   -2 

5999 

0.0000002 

0.4946575 

,   -2 

5999 

0.0000002 

0.5096464 

,   -2 

.5999 

0.0000002 

0.5246363 

,   -2 

5999 

0.0000002 

0.5396261 

,   -2 

5999 

0.0000002 

0.5546160 

,   -2 

5999 

0.0000002 

0.5696049 

,   -2 

5999 

0.0000002 

0.5845947 

,   -2 

5999 

0.0000002 

0.5995846 

,   -2 

5999 

0.0000002 

0.6145744 

,   -2 

5999 

0.0000002 

0.6295643 

,   -2 

5999 

0.0000002 

0.6445532 

,   -2 

5999 

0.0000002 

0.6595430 

,  ,  -2 

.5999 

0.0000002 

'  0.6745329 

,   -2 

5999 

0.0000002 

0.6895227 

,   -2 

5999 

0.0000002 

0.7045116 

,   -2 

5999 

0.0000002 

0.7195015 

,   -2 

5999 

0.0000002 

0.7344913 

,   -2 

5999 

0.0000002 

0.7494812 

,   -2 

5999 

0.0000002 

0.7644701 

,   -2 

5999 

0.0000002 

0.7794600 

,   -2 

5999 

0.0000002 

0.7944498 

,   -2 

5999 

0.0000003 

0.8094397 

,   -2 

5999 

0.0000003 

0.8244286 

,   -2 

5999 

0.0000003 

0.8394184 

,   -2 

5999 

0.0000003 

0.8544083 

,   -2 

5999 

0.0000003 

0.8693981 

,   -2 

5999 

0.0000003 

0.8843870 

,   -2 

5999 

0.0000003 

0.8993769 

,   -2 

5999 

0.0000003 

0.9143667 

,   -2 

5999 

0.0000003 

0.9293566 

,   -2 

5999 

0.0000003 

0.9443464 

,   -2 

5999 

0.0000003 

0.9593353 

,   -2 

5999 

0.0000003 

0.9743252 

,   -2 

5999 

0.0000003 

0.9893150 

,   -2 

5999 

90.0,    O.C 

>,   90.0,   90. 

0 

1,  83.39101, 

0.50000 

0 

.124507E+05, 

0.0 

0 

.248939E+05, 

0.0 

0 

.373239E+05, 

0.0 

0 

.497329E+05, 

0.0 

0 

.621151E+05, 

0.0 

0 

.744631E+05, 

0.0 

0 

.867697E+05, 

0.0 

0 

.990291E+05, 

0.0 

0 

.111234E+06, 

0.0 

0 

.123378E+06, 

0.0 

0 

.135453E+06, 

0.0 
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0.147455E+06, 

0.0 

0.159375E+06, 

0.0 

0.171208E+06, 

0.0 

0.182946E+06, 

0.0 

0.194584E+06, 

0.0 

0=206116E+06, 

0.0 

0.217533E+06, 

0.0 

0.228832E+06, 

0.0 

0.240004E+06, 

0.0 

0.251045E+06, 

0.0 

0.261948E+06, 

0.0 

0.272706E+06, 

0.0 

0.283315E+06, 

0.0 

0.293768E+06, 

0.0 

0.304059E+06, 

0.0 

0.314184E+06, 

0.0 

0.324135E+06, 

0.0 

0.333909E+06, 

0.0 

0.343499E+06, 

0.0 

0.352900E+06, 

0.0 

0.362108E+06, 

0.0 

0.371116E+06, 

0.0 

0.379920E+06, 

0.0 

0.388516E+06, 

0.0 

0.396898E+06, 

0.0 

0.405062E+06, 

.  0.0 

0.413003E+06, 

0.0 

0.420717E+06 

0.0 

0.428200E+06 

0.0 

0.435448E+06 

0.0 

0.442456E+06 

0.0 

0.449221E+06 

0.0 

0.455739E+06 

0.0 

0.462007E+06 

0.0 

0.468021E+06 

0.0 

0.473777E+06 

0.0 

0.479273E+06 

0.0 

0.484506E+06 

0.0 

0.489472E+06 

0.0 

0.494170E+06 

0.0 

0.498595E+06 

0.0 

0.502747E+06 

0.0 

0.506622E+06 

0.0 

0.510219E+06 

0.0 

0.513536E+06 

0.0 

0.516570E+06 

0.0 

0.519320E+06 

0.0 

0.521785E+06 

0.0 

0.523963E+06 

0.0 

0.525854E+06 

0.0 

0.527455E+06 

0.0 

0.528766E+06 

0.0 

0.529786E+06 

0.0 

0.530516E+06 

0.0 

0.530954E+06 

0.0 

0.531099E+06 

0.0 

0.530954E+06 

0.0 

0.530516E+06 

0.0 

0.529786E+06 

0.0 

0.528766E+06 

0.0 

0.527455E+06 

0.0 

0.525854E+06 

0.0 

0.523963E+06 

0.0 

0.521785E+06 

0.0 

0.519321E+06 

0.0 

0.516570E+06 

0.0 

0.513536E+06 

0.0 

0.510219E+06 

0.0 

0.506623E+06 

0.0 
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0.502747E+06 

0.0 

0.498595E+06 

0.0 

0.494170E+06 

0.0 

0.489473E+06 

0.0 

0.484506E+06 

0.0 

0.479273E+06 

0.0 

0.473777E+06 

0.0 

0.468021E+06 

0.0 

0.462007E+06 

0.0 

0.455739E+06 

0.0 

0.449221E+06 

0.0 

0.442456E+06 

0.0 

0.435448E+06 

0.0 

0.428200E+06 

0.0 

0.420717E+06 

0.0 

0.413003E+06 

0.0 

0.405062E+06 

0.0 

0.396898E+06 

0.0 

0.388516E+06 

0.0 

0.379920E+06 

0.0 

0.371117E+06 

0.0 

0.362108E+06 

0.0 

0.352901E+06 

0.0 

0.343499E+06 

0.0 

0.333910E+06 

0.0 

0.324136E+06 

0.0 

0.314184E+06 

0.0 

0.304059E+06 

0.0 

0.293768E+06 

0.0 

0.283315E+06 

0.0 

0.272706E+06 

0.0 

0.261948E+06 

0.0 

0.251045E+06 

0.0 

0.240005E+06 

.0.0 

0.228832E+06 

0.0 

0.217534E+06 

0.0 

0.206116E+06 

0.0 

0.194585E+06 

0.0 

0.182947E+06 

0.0 

0.171208E+06 

0.0 

0.159375E+06 

0.0 

0.147455E+06 

0.0 

0.135454E+06, 

0.0 

0.123378E+06 

0.0 

0.111234E+06 

0.0 

0.990297E+05, 

0.0 

0.867702E+05 

0.0 

0.744631E+05 

0.0 

0.621151E+05, 

0.0 

0.497329E+05, 

0.0 

0.373244E+05, 

0.0 

0.248944E+05, 

0.0 

0.124507E+05 

0.0 

RT       RESE 

:T  to  ORIGINAL  GLOBAL  COORDINATE 

0,0,0 

0,0,90,0 

PG       VEH] 

:CLE  BODY  SIDE  PLATE  1 

4,0 

1.75,-1. 

5,-3.2 

-2.25,-1 

.5,-3.2 

-2.25,-1 

.5,-4.25 

1.75,-1. 

5,-4.25 

PG       VEH] 

[CLE  BODY  SIDE  PLATE  2 

4,0 

3.15,-1. 

4,-3.2 

1.75,-1. 

4,-3.2 

1.75,-1. 

4,-4.1 

3.15,-1. 

4,-4.1 

PG       VEH] 

[CLE  BODY  SIDE  PLATE  3 
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4,0 

3.3,-1.1,-3.2 

3.15,-1.4,-3.2 

3.15,-1.4,-4.1 

3.3,-1.1,-4.1 
PG       VEHICLE  BODY  SIDE  PLATE  4 

4,0 

3.15,1.4,-3.2 

3.3,1.1,-3.2 

3.3,1.1,-4.1 

3.15,1.4,-4.1 
PG       VEHICLE  BODY  SIDE  PLATE  5 

4,0 

1.75,1.4,-3.2 

3.15,1.4,-3.2 

3.15,1.4,-4.1 

1.75,1.4,-4.1 
PG       VEHICLE  BODY  SIDE  PLATE  6 

4,0 

-2.25,1.5,-3.2 

1.75,1.5,-3.2 

1.75,1.5,-4.25 

-2.25,1.5,-4.25 
PG       VEHICLE  BODY  SIDE.  PLATE  7 

4,0 

1.75,-1.4,-3.2 

1.75,-1.5,-3.2 

1.75,-1.5,-4.1 

1.75,-1.4,-4.1 
PG       VEHICLE  BODY  SIDE  PLATE  8 

4,0 

1.75,1.5,-3.2 

1.75,1.4,-3.2 

1.75,1.4,-4.1 

1.75,1.5,-4.1 
PG       VEHICLE  BODY  BACK  PLATE 

4,0 

-2.25,1.5,-3.2 

-2.25,-1.5,-3.2 

-2.25,-1:5,-4.25 

-2.25,1.5,-4.25 
PG       VEHICLE  BODY  TOP  PLATE 

12,0 

2.8,1.1,-3.2 

3.3,1.1,-3.2 

3.15,1.4,-3.2 

1.75,1.4,-3.2 

1.75,1.5,-3.2 

-2.25,1.5,-3.2 

-2.25,-1.5,-3.2 

1.75,-1.5,-3.2 

1.75,-1.4,-3.2 

3.15,-1.4,-3.2 

3.3,-1.1,-3.2 

2  8  -1  1  -3  2 
PG    '  'vehicle* BODY  BOTTOM  PLATE  1 

4,0 

4.45,-1.1,-4.1 

3.3,-1.1,-4.1 

3.15,-1.4,-4.1 

4.45,-1.4,-4.1 
PG       VEHICLE  BODY  BOTTOM  PLATE  2 

4,0 

4.45,1.4,-4.1 

3.15,1.4,-4.1 

3.3,1.1,-4.1 

4.45,1.1,-4.1 
PG       VEHICLE  HEAD  TOP  PLATE 

4,0 
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3.9,1.1,-2.6 

2.8,1.1,-2.6 

2.8,-1.1,-2.6 

3.9,-1.1,-2.6 
PG       VEHICLE  HEAD  BACK  PLATE 

4,0 

2.8,-1.1,-2.6 

2.8,1.1,-2.6 

2.8,1.1,-3.2 

2  8  -1  1  -3  2 
PG    *  'vehicle' HEAD  FRONT  UPPER  PLATE 

4,0 

3.9,1.1,-2.6 

3.9,-1.1,-2.6 

4.45,-1.1,-3.5 

4.45  1.1  -3.5 
PG    *   vehicle' HEAD  FRONT  LOWER  PLATE 

4,0 

4.45,1.1,-3.5 

4.45,-1.1,-3.5 

4.45,-1.1,-4.1 

4.45,1.1,-4.1 
PG       VEHICLE  HEAD  SIDE  PLATE  1 

7,0 

3.9,-1.1,-2.6 

2.8,-1.1,-2.6 

2.8,-1.1,-3.2 

3.3,-1.1,-3.2 

3.3,-1.1,-4.1 

4.45,-1.1,-4.1 

4.45,-1.1,-3.5 
PG       VEHICLE  HEAD  SIDE  PLATE  2 

7,0 

2.8,1.1,-2.6 

3.9,1.1,-2.6 

4.45,1.1,-3.5 

4.45,1.1,-4.1 

3.3,1.1,-4.1 

3.3,1.1,-3.2 

2  8  11  -3  2 
LP    *  'data  output  ENABLED 

T 
RD       FAR  FIELD  RANGE 

10000 
PF       FAR  FIELD  RADIATION  PATTERN  PLOT  1 

0.0,0.0,90.0,0.0 

F,0.0 

45.0,0.25,361 
XQ       EXECUTE 
PF       FAR  FIELD  RADIATION  PATTERN  PLOT  2 

0.0,0.0,90.0,0.0 

T,90.0 

-45.0,0.25,361 
XQ       EXECUTE 
EN       END  OF  INPUT  DATA 
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